Perl语言入门1417

---------第十四章 字符串与排序-------------------

index查找子字符串

my $stuff = "howdy world!";
my $where = index($stuff, "wor"); #6
#返回首个字符匹配的位置，字符串第一个位置为0，上例即wor匹配的w位置
#无法匹配返回-1

my $here = index($stuff,"w",2); #返回2（从2+1个字符开始）
my $there = index($stuff,"w",3); #返回6

rindex从末尾开始找起，基本用不到

substr操作子字符串

#第二个参数：起始位置，第三个参数：截取长度
my $minx = substr("fred J. Flintstone", 8, 5); #Flint

my $peb = substr "fred J. Flintstone", 13; #stone 不加第三个参数，默认到最后

my $out = substr("some very long string",-3,2); #in 倒数第三个字符开始

#与index结合使用
my $long = "some very very long string";
my $right = substr($long, index($long,"l"); #long string

#修改字符串
my $string = "hello, world";
substr($string, 0, 5) = "goodbye"; #goodbye, world  可见长度不一定相同

#替换
substr($string, -20) =~ s/fred/barney/g; #只替换字符串后20个中匹配字符

sprintf格式化字符串

不同于printf的是它能赋值给变量

my $date = sprintf "%4d %02d",$yr,$mo; 
my $money = sprintf "%.2f",2.3456;

排序

#数组排序
my @numbers = sort {$a <=> $b} @some_numbers; #数值
my @string = sort {$a cmp $b} @some_strings; #字符串

my @descending = reverse sort {$a <=> $b} @some_numbers;
my @descending = sort {$b <=> $a} @some_numbers; #结果同上

#哈希值排序
sort keys %hash #这是对键排序
sort{$hash{$b} <=> $hash{$a}} keys %hash #值排序，降序
sort{$hash{$a} <=> $hash{$b}} keys %hash #升序
#sort values %hash ???

#先按值再按键排序
my @winner = sort by_score_name keys %score;
sub by_score_name{
    $score{$b} <=> $score{$a} #根据分数降序排列
      or
    $a cmp $b  #分数相同再按名字排序
}
#飞船操作符返回-1或1，都为真，两数相同时返回0。
#再加or，可进行多级排序

-------第十五章 智能匹配与given-when结构------------

智能匹配操作符~~

会根据两边操作数的数据类型自动判断何种方式进行比较和匹配，一般与前后顺序无关，特殊情况外。

say "I found fred in the same" if $name ~~ /Fred/；

对不同操作数的处理：

%a ~~ %b #键是否相等
%a ~~ @b 或@a ~~ %b #a键是否在数组b中
%a ~~ /fred/ 或/fred/ ~~ %b  #键匹配
'fred' ~~ %a  #哈希值$a{fred}是否存在
@a ~~ @b #数组是否相同
@a ~~ /fred/ #数组中至少一个元素匹配
$name ~~ /fred/ #模式匹配
'fred' ~~ 'fred' #字符串是否相同
123 ~~ 456 #数组是否相等

示例1：%names中是否匹配fred键，若有打印

#传统写法：
my $flag = 0;
foreach my $key (keys %name){
    next unless $key =~ /fred/;
    $flag = $key;
    last;
}
print "the key is $flag\n" if $flag;

#智能匹配：
say "sucess" if %names ~~ /fred/; #或if /fred/ ~~ %names

示例2：判断两个等长的数组是否完全相同

#传统写法:
my $equal = 0;
foreach my $index (0..$#names1){
    last unless $names1[$index] eq $names[$index];
    $equal++;
}
print "yes\n" if $equal == @names1;

#智能匹配：
say "yes" if @names1 ~~ @names2;

• given语句
  given-when多条件，类似c语言switch语句。

given ($ARGV[0]){
    when('fred'){say "1"} #实际是$_ =~    或$_ ~~
    when(/Fred/i){say "2"}
    when(/\AFred/){say "3"}
    default {say "4"}
}
#和if-elsif-else语句的区别在于：given-when可在满足某条件的基础继续测试其他条件，而if-else-elsif-else则非此即彼。
#每个条件也可加break/continue等控制

多个条目的when匹配

将given放到foreach中循环测试

foreach my $name(@names){
    given($name){
        ...
    }
}

##可简化以下形式：
foreach(@names){ #不使用具名控制变量
    say "\nProcessing $_";
    
    when('fred'){say "1"; continue}  #continue使每个条件都能执行
    when(/Fred/i){say "2"; continue}
    when(/\AFred/){say "3"}
    say "moving on to default...";
    default {say "4"}
}

----------第十六章 进程管理----------------------

system函数

perl程序为父进程，system为子进程。

#一般就是shell命令。
system 'date';

system 'ls -l $HOME'; 
#此处用双引号，会将$HOME视为变量内插，而非环境变量

system 'for i in *; do echo ==$i==; cat $i; done &';
#里面的命令为孙进程；&放后台运行，perl程序无需等待它运行完

#不使用shell命令，则用多参数：
system 'tar','cvf',$tarfile, @dirs;

环境变量

%ENV : 每个键都代表一个环境变量  
$ENV{'PATH'} = "/home/rootbeer/bin:$ENV{'PATH'}";

其他类system函数和命令

#1.exec函数
exec 'date';
#不能在后台运行，一般很少用

#2. 反引号
print "the time is now: ", `date`;
my $out_errors = `frobnitz -enable 2>&1`; #将标准错误合并至标准输出
#建议如果不需要捕获输出内容，就不要用反引号。

#3. qx操作符
qx(perldoc -t -f int) #近似反引号

#建议还是用system函数

------第十七章 高级Perl技巧-------------------

切片

#标量：
my $count = (split /:/)[5];
my($card,$count) = (split /:/)[1,5];
my($first, $last) = (sort @names) [0,-1] #取第一个和最后一个

#数组切片：
my @num = @names[9,2,1,0,1];
#下标可任意顺序，也可重复

#哈希切片：
my @three_scores = @score { qw/barney fred dino/ }
#等于：my @three_scores = ($score{"barney"}, $score{"fred"}, $score{"dino"});

my @name = qw /a b c/;
my @math_score = qw /1 2 3/;
@score{@name} = @math_score; #相当于构建哈希
print "their scores were: @score{@name}\n"; #也能内插

捕获错误

• eval表达式
  检查到致命错误立即停止运行整个eval块，退出后继续运行其余代码。
  默认返回语句块最后一条表达式结果。若捕获到错误，整个语句块返回undef，并在特殊变量$@中设置错误消息。

#如对除0错误的处理：
my $barney = eval {$fred/$dino} // 'NaN'; #将NaN设为默认值
print "I can't divide by \$dino ： $@" if $@;

#检查返回值来判断
unless (eval { $fred/$dino}){
    print "I can't divide by \$dino ： $@" if $@;
}

#对多处潜在(打开文件/除0/子程序等)的致命错误做防范：
foreach my $person (qw /one wtow three four/){
    eval{
        open my $fh, '<', $person or die "can't open file: $!";
        my ($total, $count);
        while(<$fh>){
            $total += $_;
            $count++;
        }
        my $average = $total/$count; #eval也可在此嵌套
        print "average for file $person was $average\n";
        
        &do_something($person,$average);
    }
    if($@){
        print "an error occurred ($@),continuing\n";
    }
}

#但有些错误是eval无法捕获的：
#如语法错误；perl解释器崩溃；警告信息；exit操作符

高级错误处理

Perl语言处理错误的基本做法：用die抛出异常，用eval捕获异常，通过识别$@中的错误消息判断问题出在哪里。

#local $@;
eval{
    ...;
    die "a unexpected message" if $unexpected;
    die "bad denominator" if $dino == 0;
    $barney = $fred/$dino;
}
if( $@ =~ /unexpected/){...;}elsif($@ =~ /denominator/){...;}
#这类代码有很多弊端，如$@的动态作用域问题，确保不干扰高层eval错误。
#这里最好在最前加上local $@;


#Try::Tiny模块解决这类问题：
use Try::Tiny;
try{...;} #可能抛出异常的代码
catch{...;} #处理异常的代码
finally{...;} #不管是否出错都运行的代码

my $barney = 
    try{$fred/$dino}
    catch{say "error is $_";} #$_替代$@，避免干扰
    finally{say @_? 'error' : 'worked';}; #@_判断参数内容
    
    
#autodie：
#perl自带autodie编译指令，自动抛出异常
use autodie;
open my $fh, '>', $filename;

grep函数处理列表元素

返回真假值

my @odd_numbers = grep { $_ % 2} 1..1000; #挑出奇数

my @match_lines = grep {/\bfred\b/i} <$fh>;
my @match_lines = grep /\bfred\b/i/, <$fh>; 
#若只有一个表达式，可去掉大括号加逗号进行简化

my $line_count = grep /\bfred\b/i, <$fh>; #标量，返回匹配个数

map函数处理列表元素

返回实际结果

my @data = (4.5,6.23,67);
my @format_data = map {&big_money} @data; #对金额数字格式化
print "the money are: \n", map {sprintf("%25s\n", $_)} @format_data;

#简单表达式同样可简化：
print "some powers of two are:\n",
    map "\t".(2**$_)."\n", 0..15;

其他处理列表元素函数

Perl自带的List::Util模块

#first函数：
my $first_match = first {/\bfred\b/i} @names; 

#sum函数
my $total = sum(1..100);

#max函数
my $max = max(3,5,4,7);

#maxstr函数:最长字符串
my $max = maxstr(@strings);

#shuffle函数：对列表元素随机排序
my @shuffled = shuffle(1..1000);

List::MoreUtils模块

#none/any/all函数
if(none {$_>100} @numbers){...;} 
elsif(any {$_ >50} @numbers){...;}
elsif(all {$_ <10} @numbers){...;}

#natatime函数(n at a time，同时处理n组)
my $iterator = natatime 3, @array;

#mesh函数：合并多个列表(交错填充)
my @large_array = mesh @one, @two, @three;