jimy1

2019年6月14日

布尔上下文，这里misreading返回的是来源列表中元素的个数，如果列表中2个值都是undef，则列表元素个数是1： while( $misreading = (my $test_consideration, my $english_pragma) = each %map_function){

摘要：布尔上下文，这里misreading返回的是来源列表中元素的个数，列表赋值运算的值将会是来源列表中元素的个数，空列表表示0，如果列表中2个值都是undef，则列表元素个数是1 布尔上下文，这里misreading返回的是来源列表中元素的个数： 103 while( $misreading = (m 阅读全文

posted @ 2019-06-14 10:37 jimy1 阅读(199) 评论(0) 推荐(0)

print keys %map_function 输出散列的值： OK_funcsplit_funcpackage_VAR

摘要： my %map_function = ( 88 "OK_func" => "open_statement", 89 "package_VAR" => "positional", 90 "split_func" => "prototypes", 91 ); 92 my @substr = keys % 阅读全文

posted @ 2019-06-14 10:16 jimy1 阅读(151) 评论(0) 推荐(0)

my @unpacking_list = values %map_function; print "\n".@unpacking_list; 输出是3 把 @unpacking_list 当做一个数输出了

摘要： my %map_function = ( 88 "OK_func" => "open_statement", 89 "package_VAR" => "positional", 90 "split_func" => "prototypes", 91 ); 92 my @substr = keys % 阅读全文

posted @ 2019-06-14 10:00 jimy1 阅读(116) 评论(0) 推荐(0)

2019年6月12日

vim要粘贴的话，先set paste，然后粘贴，然后再set nopaste

摘要：要粘贴的话，先set paste，然后粘贴，然后再set nopaste 阅读全文

posted @ 2019-06-12 17:06 jimy1 阅读(4513) 评论(0) 推荐(0)

Solaris 默认Shell 修改

摘要： ssh登陆远程的solaris 10，backspace出现乱码。 ssh登陆远程的solaris 10默认Shell不是bash 把solaris10的shell环境改为bash就行 dev13% bash bash-2.03$ perl -vThis is perl, version 4.0 阅读全文

posted @ 2019-06-12 16:41 jimy1 阅读(302) 评论(0) 推荐(0)

2019年6月11日

关系数组

摘要：散列的索引值，不是数值，而是互不相同的任意字符串。任意的字符串，一个散列里只能有一个名叫Willa的元素 2. 如何命名散列变量的名称 $family_name（“宏”） = “李”；这样可以说 “宏” 的姓是 “李” 阅读全文

posted @ 2019-06-11 16:33 jimy1 阅读(314) 评论(0) 推荐(0)

文件描述符文件操作 <> open 文件句柄

摘要： #! /usr/bin/perl use strict;use warnings;=head1print "\n test_ \n";if(!open LOG, ">> Z/logfile"){ die "can't create logfile: $!";}print "\n test_ \n"; 阅读全文

posted @ 2019-06-11 15:53 jimy1 阅读(273) 评论(0) 推荐(0)

IO 双引号输出输入

摘要： #! /usr/bin/perl use strict;use warnings;print "\n <STDIN>_store_into_an_array_and_then_chomp() \n";my @lines = <STDIN>;chomp(@lines);print "\n Input_ 阅读全文

posted @ 2019-06-11 15:52 jimy1 阅读(158) 评论(0) 推荐(0)

子例程 subroutine

摘要： #! /usr/bin/perluse strict;use warnings;print "\n summation_STDIN_parameter \n";sub total{ my $array_len = @_; my $sum = 0; foreach(0..$array_len){ $s 阅读全文

posted @ 2019-06-11 15:51 jimy1 阅读(251) 评论(0) 推荐(0)

第五章答案

摘要： #! /usr/bin/perl use strict;use warnings;=head1print "\n ch_5_Q1_ \n";#print reverse <>;print "\n _ \n";select STDIN;my @single_quotation = <>;print @ 阅读全文

posted @ 2019-06-11 15:51 jimy1 阅读(151) 评论(0) 推荐(0)

公告