perl 学习笔记

****************
0. chomp
*****************

chomp （$void = <STDIN>）
或者

$void = <STDIN>
chomp $void



STDIN是一个标准输入，提示用户输入一个字符串，但在最后一位会加上\n 换行符号，使用chomp会去掉最后的\n 换行符号。



********************
1.    数组
*********************


数组是从0 1 2 3 开始的一组变量，默认是已空格分隔。

$array[0] = test1
定义数组0位是test1，

$array[1] = test2
定义数组1位是test2

Print “$array\n”
 Test1 test2

$array[3] = test4
前面已经定义了数组这里可以定义4位是test4，$array[2] 是未定义的字符串，不会显示出来，但还是有这一位的。


函数defined

defined 来说，假如它的参数是定义好的便返回真值，比如$array[0],$array[1],像$array[2]是未定义的，便返回假值。

defined( $array[0] )

例子：1.1

if (defined( $array[0] ))｛
    print "true\n";
｝

else ｛
    print "false\n";
｝

以上例子中，如果$array[0]定义了print：true，如果$array[0]未定义print：false。显然$array[0]已经定义，返回true。


$array[2] = test3
现在定义$array[2]是test3

例子：1.2

print "@array\n";
test1 test2 test3 test4

print @array,"\n";
test1test2test3test4

以上可以看出在使用print函数时，将数组用“”括起来，数组会默认输出用空格隔开，没用“”的将输出一串字符串.


@array[-1]
这个相当于取这个数组的倒数第一位。

******************
2. qw和（...）
*******************

qw是用来创建一个数组的

例子：2.1

touch qw.pl

#!/usr/bin/perl
@array1 = qw(my name is caijiangfeng);
print "\n@array1\n\n";

[root@kingate home]# perl qw.pl

my name is caijiangfeng


运行脚本qw.pl后输出my name is caijiangfeng

qw定义数组很随意
可以是

 my name is caijiangfeng !
qw@ my name is caijiangfeng @
qw* my name is caijiangfeng *
qw% my name is caijiangfeng %
qw^ my name is caijiangfeng ^


（..）也是来定义数组的。


例子：2.2


[root@kingate home]# vi test.pl

#!/usr/bin/perl

@array2 = ('a' .. 'z');
print "\n@array2\n";


[root@kingate home]# perl test.pl

a b c d e f g h i j k l m n o p q r s t u v w x y z

（..）定义了一个范围 输出a-z的所有字母

****************
3. push和pop函数
****************

push（@array,1）
push是在数组array里面的最后以为添加一个元素

pop （@array）
pop是在数组array里取最后一位元素。



*****************
4 hash 散列
*****************

例子4.1

###############################
#!/usr/bin/perl


$name{"caijiangfeng"} = "1";
$name{"wangqian"} = "2";

foreach $onetwo (qw< caijiangfeng wangqian >){
        print "my name $onetwo is $name{$onetwo}.\n";
}

打印：
my name caijiangfeng is 1.
my name wangqian is 2.



hash可以理解成数组的下标自定义名称的数组。

首先定义 hash元素
$name{"caijiangfeng"} = "1";

相当于这个hash元素的键是caijiangfeng值是1.

也可以这么写：

my %name = (
    "caijiangfeng" => "1",
    "wangqian" => "2",
    "wangjiangtao" => "3",
);


5. foreach 循环语句

从4.1例子中可以看出 foreach将数组$onetwo 中的值依次提出来通过print打印出来，知道数组中没有值。


**********************
6. keys 和 values 函数
***********************

my %hash = ("a" => 1,"b" => 2,"c" => 3);
my @k = keys %hash;
my @v = values %hash;

print "@k\n";
print "@v\n";


打印：


c a b
3 1 2

可以看出数组k包含了%hash的键，而数组v包含了%hash的值。

因为perl无法预测hash的存储顺序，所以不会和定义hash时的键的顺序一致，但 函数keys和values函数取得的数组表的键和值还是对应的。





习题：
写个程序，输入人名如：feng，fengzi，caijiangfeng，wangsan，feng，feng，fengzi，wangsan 最后输出所有人命输入的次数。



#!/usr/bin/perl
while (1){
        print "please enter:";
        chomp ($name = <STDIN>);
        if ("$name" eq "q"){
                last;
        }
        if (!(exists $name_list{$name})){
                $name_list{$name} = 1;
        }
        else{
                $v=$name_list{$name};
                $name_list{$name} = ($v + 1);
        }
}
print "###################################\n";
foreach $key (sort keys %name_list) {
        print "$key \t = \t  $name_list{$key}\n";

}







***************
7. 子程序
****************
子程序相当于c语言和shell中的函数

格式

sub sum {

    print "heloo\n";

}

&sum

子程序的调用是在前面加个 与符号。

$a=1
$b=2

sub max {
    if ($a > $b) {
        print "$a\n";
    }
    else {
        print "$b";
    }
}


$max

打印:

2

这个是取两个变量的最大值.


在perl中变量的定义都是全局的.在定义变量时加上my

以上换成:

my $a = 1;
my $b = 2;

在&max中将不会引用$a和$b中的值.



$a = 1;
$b = 2;

sub sum {
    $a + $b;
}

$w = &sum;

print "$w"


打印:

3


可以看出打印的是3  是$a和$b的和.&sum的返回值是3.
子程序的返回值是最后一个命令的返回值,如果最后一个命令是print


sub sum {
    $a + $b;

    print "$a +b";
}


掉用这个程序后将会先输出$a+$b,然后返回值是1,说明print输出成功将这个值赋予$w,最后在输出1.


************
子程序的参数
************

perl中子程序的第一个参数是:$_[0] 第二个:$_[1],依次类推.



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

$n = &max(10,20);

print "$n\n";

打印:

20


***************
子程序私有变量
****************


sub max {
    my ($m,$n);
    ($m,$n) = @_;
    if ($m > $n) {
        $m;
    }
    else {
        $n;
    }
}

$n = &max(10,20);

print "$n\n";

打印:
20

这个子程序中的变量$m,$n只在&max中有效.@_是一个默认参数数组.




*****************
更好的&max子程序
******************


sub max {
    my($max_so_far) = shift @_;
    foreach (@_) {
        if($_ > $max_so_far) {
            $max_so_far = $_;
        }
    }
    $max_so_far;
}

$s = &max(1,10,2,30,11,100,10,3,4,6)

print "$s\n";

打印:

100


my($max_so_far) = shift @_;
提取数组@_中的第一位赋予$max_so_far作为初始值.







*******************
正则表达式
*******************

#!/usr/bin/perl -w

while (<>) {
    chomp;
    if (/.*a/) {
        print "$_\n";
    }

}

ctrl+d 结束.

.        匹配一个字符(不包括换行符)
.*        匹配一个或多个字符
.+        匹配最少一个字符
.*a        匹配到最后一个a处(越长越好)
.+a        匹配到最后一个a处(越长越好)
.*?a        匹配到第一个a处(越短越好,最好是一个字符都不匹配)
.+?a        匹配到第一个a处(越短越好,最好是第一个)

m/^abc/        匹配开头为abc的行(通常m可以省略)
/^abc/i        匹配开头是abc或者ABC或者Abc的行,i参数是忽略大写.
/./s        匹配任意(包括换行符,s参数让.匹配任意字符)
/. /x        x参数可以在匹配表达式中加入空格,如果要匹配'空格'需要添加转义符\'空格'.

s/^abc/^ABC/    替换开头是abc的行为字符ABC.
s/abc/ABC/g    替换开头是abc的行字符ABC,g参数为全局参数