学习perl点滴(一)

这里记录俺在学perl过程中遇到的痛苦，快乐。

1》    今天看到别人博客用sed,awk 输出文件奇，偶数行，突然自己也想用perl尝试写，开始 直接$.%0  一直报错，理解错了%用法，今天写出这个也是自己学一句话的小小突破吧。

 

perl -wnl -e '$. % 2==0 and print;' grep_test   显示文件偶数行内容

perl -wnl -e '$. % 2==1 and print;' grep_test 显示文件奇数行内容

                                    

                                                     2011.09.1 0：46

 

2》     听群里朋友建议，返回看小骆驼，尝试做题，这样可以发现好多问题。今天看第4章，按照书上的例子，代码如下

[root@localhost ~]# perl test_sub.pl

81

[root@localhost ~]# cat -n test_sub.pl

     1 #!/usr/bin/perl

     2 #Date:2011.09.14

     3 #Author:luyafei

     4 #Email:[e-mail]

     5 use strict;

     6 my $value = &max(6, 8);

     7 sub max {

     8    my ($m, $n) = @_;   

     9   if ($m > $n) {print  $m } else { print $n}

     10 }

     11 my $c = &max;

     12 print "$c\n";

 原来是我理解错了，我以前理解的子函数返回值，返回就是输出，实际上它们相互没关系，上面输入81 ，因为 8 是if语句print的结果，而1在perl语言里 表示正确的意思，也正是sub的返回值，我把&max 的返回值付给了$c，然后输出，所以在最后 输入了81. 在这里 贴2段代码，一个是朋友写的，一个是师傅写的。

use strict;
        use warnings;
     	my $value = &max(6, 8);
     	sub max {
			my ($m,$n) = @_;
			return $m>$n ? $m : $n;
        }
        warn $value;

这段代码 用了三目操作符，warn

 

#!/usr/bin/perl

use strict;

use warnings;

use 5.10.0;

&max(6,8);

sub max {

   my ($m, $n) = @_;

   if ($m > $n) {

      say $m;

   }

   say $n;

}

 

这段代码 用了新特性say  效果和print一样,只是默认添加了换行符（\n），使用say 要加use 5.10.0

                                                         2011.09.15. 1：21

 

3》     继续讨论函数，今天上午写了2段代码，但是返回的结果 一个是空，一个数字，当时很奇怪，函数里return 可以省略不写，而且函数返回的总是代码块里最后的执行结果， 同意代码里是if语句，但是返回值相差甚远。直到下午朋友帮忙，又看的perl精简实例那书，才有新的认识。有时候想，不是自己愚钝，理解能力差，就是小骆驼内的代码有点误人子弟的，理解很很费劲。

[root@localhost ~]# perl test_sub.pl 

[root@localhost ~]# cat test_sub.pl 
#!/usr/bin/perl
#Date:2011.09.14
#Author:luyafei
#Email:[e-mail]
use strict;
my $value = &max(6, 8);
sub max {
   my ($m, $n) = @_;
   
   if ($m > $n) { 
   $m; 
   } else {
   $n;
   }
}
my @c = &max;
print "@c\n";

[root@localhost ~]# perl scalar.pl 
6[root@localhost ~]# cat scalar.pl 
#!/usr/bin/perl
use strict;
use warnings;
my $free = 6;
my $max = 9;
sub list_from_free_to_max {
   if ($free < $max) {
   $free;
   }else {
        $max;
   }
   
}
my @c = &list_from_free_to_max;
print @c;

上面2段代码 分别返回空和数字6 ，问朋友，被他发群里了，招来一群人喷，o(∩_∩)o 哈哈 不过都是熟悉人。
我只说下，正确的理解，至于我那错误想法，我就不说了，怕会引起误会。 如果要给函数传参，
方式是&函数明（），括号里的列表元素 用逗号隔开，例如my @arry = &max(6,80)； 这就是传参数6，80给函数max,
然后把返回值赋值给@arry. 我第一段代码 ，@c 是空，就是因为没给函数传参，给$value 传参了，如果把最后print 该成$value,就会输出8了。

                                                                   2011.9.15 17：58

4》     晚上还在纠结第四章，持久性变量 这节， 看不懂写的什么思路 很乱，最后写2个代码 ，才明白书上说的什么，具体我不解释了，看下面2段代码
 
就明白意思了。

[root@localhost ~]# cat  7.pl 
#!/usr/bin/perl

sub marine {
   $n +=1;
   print "Hello,sailor number $n\n";
}
&marine;
[root@localhost ~]# perl 7.pl 
Hello,sailor number 1

 

[root@localhost ~]# cat 7.pl 

#!/usr/bin/perl

use strict;

sub marine {

   $n +=1;

   print "Hello,sailor number $n\n";

}

&marine;

[root@localhost ~]# perl 7.pl 

Global symbol "$n" requires explicit package name at 7.pl line 4.

Global symbol "$n" requires explicit package name at 7.pl line 5.

Execution of 7.pl aborted due to compilation errors.

[root@localhost ~]# 

大家看出什么不一样的地方了吗， 还是思考，多写 才行o(︶︿︶)o 唉 折腾一晚上

                                                          2011.9.16 0：56

 

5》比较运算

比较常犯的错误是 if ( $num = 5 ),这样直接成了给变量num赋值了，正确写法为if ( $num == 5 )

                                                          2012.10.29

6》复制一个文件到另外一个文件中

同时open  打开2个文件，文件句柄一个是IN_FILE，另外一个OUT_FILE,这样通过print OUT_FILE $IIN_FILE;  复制文件。