学习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 显示文件奇数行内容

[root@localhost ~]# perl test_sub.pl81[root@localhost ~]# cat -n test_sub.pl     1 #!/usr/bin/perl     2 #Date:2011.09.14     3 #Author:luyafei     4 #Email:chulianwang@qq.com     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";

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

#!/usr/bin/perluse 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

[root@localhost ~]# perl test_sub.pl [root@localhost ~]# cat test_sub.pl #!/usr/bin/perl#Date:2011.09.14#Author:luyafei#Email:chulianwang@qq.comuse 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/perluse 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：584》     晚上还在纠结第四章，持久性变量 这节， 看不懂写的什么思路 很乱，最后写2个代码 ，才明白书上说的什么，具体我不解释了，看下面2段代码 就明白意思了。

[root@localhost ~]# cat  7.pl #!/usr/bin/perlsub 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/perluse 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 ~]# 

以上是内存溢出为你收集整理的学习perl点滴(一)全部内容，希望文章能够帮你解决学习perl点滴(一)所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。