Perl 练习2
发布时间:2020-12-16 00:11:39 所属栏目:大数据 来源:网络整理
导读:#!/usr/bin/perl -wsub add{$num+=1;print "now num is $num n";}add;add;add; #!/usr/bin/perl -w#$arr1[0]="zz";#$arr1[1]="aa";#$arr1[2]="bb";#$arr1[99]="cc";#$startIndex=0;#$endIndex=$#arr1;#@names=qw#zhanzhao wangwu qinfang#;=this is a descr
#!/usr/bin/perl -w sub add{ $num+=1; print "now num is $num n"; } &add; &add; &add; #!/usr/bin/perl -w #$arr1[0]="zz"; #$arr1[1]="aa"; #$arr1[2]="bb"; #$arr1[99]="cc"; #$startIndex=0; #$endIndex=$#arr1; #@names=qw#zhanzhao wangwu qinfang#; =this is a describe @arr = qw#aaa bbb ccc #; shift(@arr); shift @arr; #print $m."n"; #print $n."n"; unshift(@arr,"dd"); print @arr; =cut @arr=qw#aa bb cc dd ee#; @removed=splice @arr,1,2,qw(" ff gg "); print @removed," ",@arr,"n"; #print @arr1; #!/usr/bin/perl -w sub sum_of_fred_and_barney{ print "you called the sum_of_fred_and_barney function n"; return $fred+$barney; #print "return"; } $fred=1; $barney=2; print &sum_of_fred_and_barney,"n"; print 3*&sum_of_fred_and_barney,"n"; #!/usr/bin/perl -w #演示foreach的循环结构 =this is a descript @arr=qw("aa bb cc dd"); foreach (1..10){ print $_,"n"; } print "nnn"; print "***************"; @nums=1..10; @revNums=reverse(@nums); print @revNums; =cut #排序sort @names=qw(zhangsan liqiang 11 la wangwu); @sortNames=sort(@names); print "排序前:",@names,"n"; print "排序后:",@sortNames,"n"; #!/usr/bin/perl -w my @names=qw(zhangzhao wangwu baidu wangyi qinfang); sub getPosition{ my($target,@arr)=@_; foreach (0..$#arr){ if ($target eq @arr[$_]){ return $_; } } -1; } print getPosition("baidu",@names); #!/usr/bin/perl -w #位置变量 print $ARGV[0],$ARGV[1],"n"; #!/usr/bin/perl -w #use strict; use 5.085; =pot sub sumTest{ state $sum=0; state @nums; foreach my $num $nun (@-){ push @nums,$num; $sum+=$num; } say "sum is ",$sum,"n"; } =cut print "zz"; #sumTest(1,2); #sumTest(3..6); #!/usr/bin/perl -w @arr=qw(zhangsan wangwu aa bb); foreach $item (0..$#arr){ print "index is ",$item," value is ",$arr[$item],"n"; } #while(($index,$value)=each @arr){ #print "index is ",$index,$value,"n"; #} #!/usr/bin/perl -w =pod #说明上下文的概念 @people=qw(zhangsan aa bb); @len=@people; $num=1+@len; print $num; =cut #print 'zz'; chomp(@arr=<STDIN>); print @arr; #!/usr/bin/perl -w %some_hash=('name','zhangzhao','age',23); print %some_hash,"n"; @arr=%some_hash; print @arr; print "****************","n"; $newHash=reverse %some_hash; print $newHash,"n"; #!/usr/bin/perl -w %myHash=("name"=>"zhanghzao","age"=>20); @keys=keys %myHash; @values=values %myHash; print @keys,"n"; print @values,"n"; #!/usr/bin/perl -w #打印整个hash表 %myHash=("name"=>"zhangzhao","age"=>23); while(($key,$value)=each %myHash){ print "key : ",$key," value : ",$value; print "n"; } (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |