Perl 语言入门15

第一章 简介

perl -v

文字处理，编写小型CGI脚本（Web服务器调用程序）的最佳语言

CPAN: Perl综合典藏网

shebang:
#! /usr/bin/perl 或#! /usr/local/bin/perl

perldoc

第二章 标量

• 数字

1.25  
-1.2e24  
3  
61_300_100  
0377 #八进制  
0xff #十六进制  
ob1111111 #十六进制  

• 运算符

+
-
*
/
%
**

• 单引号和双引号

'hello\n'  #\n两个字符
"hello\n"  #换行符

双引号内转义：
\n
\r #回车
\t
\f #换页
\b #退格
\\ #单反斜线
\l #下个字母变小写
\L #所有字母变小写
\u 
\U

• 字符串操作符

"hello" . "world"  #"helloworld"，连接操作符必须显式
"fred"x3
5x4.8  #"5555"

"12fred34" * "3"  #36 数字与字符串自动转换

• Perl内置警告

#! /usr/bin/perl -w

#! /usr/bin/perl
use warnings;

#! /usr/bin/perl
use diagnostics; #更为详尽的警告

• 双目赋值操作符

$fred = $fred + 5; $fred += 5;
$barney = $barney * 5; $barney *= 5;
$str = $str. "";  $str .=""; #等于追加操作符

• 标量内插

print "the answer is", 6*7, ".\n";

$meal = "steak";
$bar = "fred eat a $meal"; #等价
$bar = "fred eat a". $meal;
$bar = "fred eat ${meal}s.\n"; #steaks

#单引号不能内插变量

• 比较操作符

数字：==   !=  <  >   <=   >= 
字符串：eq  ne  lt gt le ge

• if控制结构

比较操作符：以上
布尔值：1（True） undef(False)

• 获取用户输入 <STDIN>

• 去除末尾换行符：chmop

• chomp($text = <STDIN>)

• undef 未定义值，空的，变量首次赋值前就是这个。所以才可用$sum += 4，$string .= "more text\n"等操作

• defined函数：判断某个字符是undef而非空字符串，如果是undef，则返回假

第三章 列表与数组

• 列表是数据，数组是储存列表的变量
• $#array最后一个数组元素的索引
• 列表直接量

(1,2,3,"red")
(1..5,9)
(5..1) #空列表，因为只能向上计数
(0..$#array)
($m..$n)
("fred","barney","betty")
#简写:省去引号逗号
qw(fred barney betty)
qw! fred barney betty !
qw(this is a test\!) #转义

• 列表赋值：

($fred,$barney)=("test",undef)
($fred,$barney)=qw(a,b,c,d) #忽略cd
($fred,$barney)=qw(a) #$barney自动为undef
@rocks=qw(slate lava)
#数组只能包含标量，不能包含其他数组？

• 数组函数：

#pop：弹出数组最后一个元素
@array = 5..9;
$fred = pop @array;

#push：压入一个元素到数组最后
push (@array,8);
push  @array, 1..10;
@other = qw(1 2 3);
push @array, @other; #注意不能直接操作列表

#shift：取出数组第一个元素
$m = shift @array;

#unshift：添加数组第一个元素
unshift @array,6;
unshift @array,@other;

#splice：添加或删除数组的中间元素
@remove = splice @array, 2; #删除原数组第三个元素后的所有元素
@remove = splice @array,2,3; #删除第3，4，5个元素（第3个参数表长度）
@remove = splice @array,1,2,qw(new); #第四个参数表补充新元素到原数组

• 字符串中数组内插

print "this is a @test\n";
#所以不想内插时@需要转义（或单引号）

• foreach 遍历数组

@rocks = qw(bedrock slate lava);
foreach $rock (@rocks){
    $rock = "\t$rock";
    $rock .= "\n";
}
print "The rocks are:\n",@rocks;

• 默认变量$_

foreach(1..10){print "i can count to $_!"}

• reverse操作符

@fred= 6..10;
@two = reverse @fred;
@three = reverse 6..10;

• sort操作符

@rocks = qw(one two three four);
@sorted = sort @rocks;
@numbers = sort 98..101; #不是按数值大小排序，而是按ASCII码

• each 操作符：返回索引和值

while(my($index,$value) = each @rocks){
    print "$index: $value";
}
#效果同下：
foreach $index(0..$#rocks){
    print "$index: $rocks[$index]\n";
}

• 标量/列表上下文
  -- 定义：同一个表达式在不同的地方具有不同的意义

@people = qw(one two three);
@sorted = sort @people; #one two three 列表上下文
$number = 42 + @people; #45 标量上下文

-- 在标量上下文中使用列表表达式

$test = reverse qw(one two); #得到owteno

-- 在列表上下文中使用标量表达式

@fred = 6*7; #生成单个元素的列表
@test = "hello" . ' ' . "world";
@test = undef; #含一个未定义元素的列表
@test = ( ); 清空数组

-- 强制指定标量上下文：scalar函数

print "I have @rocks rocks!\n";  #输出数组元素
print "I have scalar @rocks rocks!\n"; #输出元素数量，error! 函数不能直接内插
print "I have ", scalar @rocks,  "rocks!\n";

• 列表中的

@lines = <STDIN>; #读入所有行
chomp @lines; #去掉所有换行符
#等同如下效果：
chomp(@lines = <STDIN>);

linux系统ctrl D停止输入，Windows系统ctrl Z停止输入

第四章 子程序

子程序：subroutine用户自定义函数
调用符号：&
子程序是全局的，如果存在两个相同的子程序，后一个会覆盖前一个。子程序可放任意位置，一般在开头或结尾。

• 定义子程序

sub marine { #关键字sub，程序名marine
    $n += 1;
    print "hello,sailor number $n!\n"
}

&marine;

• 返回值
  默认返回最后一次运算结果

sub test{
    print "this is a subroutine test"; #主要用于调试
    $one+$two; #返回值
}
$one = 3; $two = 5;
$three = &test;
print "\$three is $three";

• 参数：argument
  -- 参数列表用数组变量@_，这是子程序的私有变量 ，第一个参数$_[0]，第二个参数$_[1]......

sub max{
    if ($_[0] > $_[1]) {$_[0]} else {$_[1]}
}

• 子程序中的私有变量/词法变量
  最好对每个新变量都使用my声明，让其保持在自己所在的词法作用域内。
  使用use strict编译指令，强制使用一些严格的、良好的编程风格。

#几乎所有子程序都用到
sub max{
    my($m,$n) = @_; #将参数赋值给私有变量
    if ($m > $n) {$m} else {$n}
}

• 变长参数

#把任意长度参数列表作为参数传给子程序
sub max{
    if(@_!=2){
        print "warning! &max should get two arguments\n";
    }
    ......
}

#改进上述子程序，使其接受任意长度的参数
$maximum = &max(3,4,10,5);
sub max{
    my($max_sofar) = shift @_; #暂时将第一个值作为最大值
    foreach($_ > $max_sofar){  #遍历其他值并进行比较
        $max_sofar = $_;
    }
    $max_sofar;
}

对于$_ @_等内置变量不需事先声明

• return操作符
  立即停止并从子程序内返回某个值。

# 找出数组中某值的索引
my @names = qw(one two three);
my $index = &find_index("two",@names);

sub find_index{
    my($what,@array) = @_;
    foreach(0..$#array){
        if($what eq $array[$_]){
            return $_;
        }
    }
    -1;  #可省略return
}

• 子程序返回非标量：如列表、undef（直接在后面加return，一般用于调试子程序有误）

sub list {
   if($x < $y){
       $x..$y;
   } else {
        reverse $y..$x;
   }
}
$x = 11;
$y = 6;
@z = &list;

• 持久性私有变量：state
  多次调用子程序时，保留上次调用变量的值

第五章 输入与输出

• 读取标准输入：
  行输入操作：chomp($line = <STDIN>);

while (defined ($line = <STDIN>)){ #读取、赋值、是否定义变量
    print "I saw $line";
}
#等同于
while(<STDIN>){print "I saw $_";}
#比较foreach
foreach(<STDIN>){print "I saw $_";}
#while逐行读取
#foreach全部读取作为列表，再逐项处理列表内容

钻石操作符读入：

while(<>){
    chomp; #默认作用在$_
    print "It was $_ that I saw!\n";
}

• 调用参数：@ARGV

@ARGV = qw(file1 file2 file3);
while(<>){chomp;print "It was $_\n";}
#钻石操作符对ARGV的文件一行行读取，若为空，则改用标准输入流

• 输出到标准输出

print @names; # 打印数组元素（无空格）
print "@names"; #数组元素内插（有空格）
print (2+3)*4; #5
print ((2+3)*4); #20

• printf格式化输出

#两个参数：格式化(引号内），数据（引号外）
printf "hello, %s, you have %d books\n", $user, $num;
$user = pjx;
$num = 5;

格式化符号：

%g 自动选择浮点数、整数或指数
%d 十进制整数
%s 字符串
%f 浮点数
%% 百分号

eg：
printf "%g %g %g\n",5/2,51/17,51**17; #2.5 3 1.07e+29
printf "in %d days\n", 13.23; #in 13 days
printf "%6d\n", 45; #整数字段式右对齐
printf "%2d\n", 4567; #整数字段式左对齐
printf "%10s\n", "willma"; #字符串字段式右对齐
printf "%-10s\n", "willma"; #字符串字段式左对齐
printf "%12f\n", 6*7 + 2/3; #浮点数右对齐
printf "%0.3f\n", 6*7 +2/3; #三位小数 等于%.3f 
printf "%.2f%%\n", 5.25/12; #0.44%

• 文件句柄
  Perl进程和外界的一种I/O联系的名称；
  建议全大写字母来命名；
  6个特殊文件句柄名：STDIN(标准输入流，默认键盘）, STDOUT（标准输出流，默认屏幕）, STDERR（标准错误流，默认屏幕）, DATA, ARGV

• 打开文件句柄

open CONFIG, 'dino';
open CONFIG, '<dino'; #只读非写方式读入
open IN, ">fred"; 重定向写入
open LOG, ">>logfile"; 追加写入，一般用于日志文件中

#另一种写法更为安全：
open CONFIG, '<','dino';
open CONFIG, '>',$file;
open LOG, '>>', &logfile_names();

#这种方法还能指定数据编码方式：
open IN, '<:encoding(UTF-8)','dino';
open IN, '<:crlf', $file; #CR-LF对(:crlf层)是DOS风格换行符（\r\n），Unix风格（\n）
open OUT, '>:crlf', $file;

• 关闭文件句柄
  表示对数据流的处理已全部完成。
  当重新打开某个句柄时，perl会自动关闭原句柄。
  在程序结束时，perl也会自动关闭文件句柄。
  最好一个open搭配一个close。

close IN;

• die处理致命错误
  unix上每个运行程序都有一个退出状态（exit status），一般0代表成功，非0代表失败。

if(! open LOG, '>>', 'logfile'){die "can't create logfile: $!"} #特殊变量$!表解释性的系统错误信息
if(@ARGV <2 ){die "not enough arguments\n"}

• warn发出普通警告信息
  功能和die类似，但不会终止程序。
  die和warn以及Perl内部的出错信息都会自动默认送到STDERR。 也可指定到错误日志中。

• say输出
  功能和print差不多。但每行内容会自动加上换行符。

say "hello perl!";
say IN, "hello"; #指定句柄

• 标量变量中的文件句柄
  一般小脚本（如生物信息），用裸字更快捷。对于大一点的程序，用标量变量存储文件句柄，控制作用域，方便调试和维护。

my $rock_fh; #确保该变量预先是空的
open $rock_fh, '<', 'rock.txt' or die "could not open rock.txt: $!";
while(<$rock_fh>){
    chomp;
    ...
    foreach my $rock (qw(slate lava grant)){
        say $rock_fh $rock; #句柄变量无逗号
    }
}
print $rock_fh "limestone\n"; #句柄变量后无逗号
close $rock_fh;

与裸字的不同：

print $rock_fh, "limestone\n"; #error
print STDOUT;
print $rock_fh;  #error，perl会认为是个标量变量
print {$rock_fh};  #正确打印$_中内容