• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    公众号

3、perl进阶

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

1、条件判断与循环结构(if (unless)   while(until)   for   foreach   next last redo)

if (unless)  

  关系运算符:

    数字关系运算符(>,>=,<,<=,==,!=)   

    字符串关系运算符(gt,ge,lt,le,eq,ne)

    数字中0是假,其余是真;字符中空字符串("")和字符串("0")是假,其余是真;未定义的undef是假。

    例子:0.00是假,是0的另一种写法;"0.00"是真,它是字符串;"00"是真

  逻辑运算符

    &&(and)  ||(or)  !(not)

循环:

  while(until):

    最简单的一种循环是while,只要表达式为真,就重复执行代码块。

    perl -le '$i = 1;while($i <=10){print $i;$i+=2}'    perl -le '%hash = (1..12);while(($a,$b)=each(%hash)){print "$a\t$b"}'

  for:

    for(initialization;test;increase) perl -le 'for($i=1;$i<=10;$i+=2){print $i}'

  foreach:

    foreach与for是可以互换的,()内有两个分号就是for循环,没有分号就是foreach循环。

    perl -le 'for(1..10){print}'

循环控制:

    next:跳过这次循环,进入下次循环

    last:终止这一层次的循环

    redo:将3控制返回到当前循环块的顶端,而不经过任何条件的测试,也进入下次循环的迭代。

    三个都是在本block中其作用,要想跳出更高层次的block可以用标签。

2、变量的声明(my local our)

  my:把名字和值限于本层模块或者函数可以看到,高一层或者低一层都看不到。

     perl -le 'my $a = 12;{my $a = 34;print $a;}print $a'    #结果是12   34

  our:限于一定范围,其实就是声明一个“全局变量“,虽然是在某个模块和函数里面定义的,但是外面也可以访问

     perl -le '{our $a = 34;print $a;}print $a'    perl -le '{my $a = 34;print $a;}print $a'

  local:本层以及本层一下的函数可以看到本层的变量,但是本层上一层的不可以。

3、文件的读取

  1):$a = <STDIN>;chomp $a;  或者chomp($a = <STDIN>)    @a = <STDIN>

    perl -le 'print "please input your number:";chomp($a = <STDIN>);print ++$a'

  2):perl -le 'while(<>){chomp;print $_}' file1.txt

  3):perl -le 'open IN,"./infile1.txt";open OUT,">outfile";while(<IN>){chomp;print OUT $_};close IN;close OUt;'

  4):perl -le 'open IN,$ARGV[0];open OUT,">$ARGV[1]";while(<IN>){chomp;print OUT $_};close IN;close OUt;'    infile outfile

4、处理错误

  1):die 触发错误时给出错误信息

  2):use warning 给出警告信息(局部写法)  #!/usr/bin/perl -w(全局写法)

  3):use strict 编译指令,对语法要求严格,需要对变量适应范围作出声明。

  #!/usrbin/perl -w

  use strict;

  die "perl $0 <input> <outfile>\n" unless @ARGV==2;

  open IN,$ARGV[0] || die;

  open OUT,">$ARGV[1]" || die;

  while(<IN>){

    chomp;

    print OUT $_

    };

  close IN;

  close OUt;'

5、文件j夹的操作

  perl -le 'my $a= "./";opendir IN, $a || die;while(my $filename = readdir IN){chomp;print $filename;};closedir IN;'    #等同于ls

6、文本处理函数(split,join)

  split /\t/,$_,3  #只对前3列切割    split /pattern/,expr,limit  split /pattern/,expr  split /pattern/

  jion "\t",@a              jion expr,list

  print "@a"  print join "\t". @a[1..3]  #更改数组输出格式


鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
上一篇:
Perl、PHP、Python、Java和Ruby的比较发布时间:2022-07-22
下一篇:
Perl字符串处理备忘录发布时间:2022-07-22
热门推荐
热门话题
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap