perl入门小试

小fish

　　#!/usr/bin/perl
　　##############################################################################
　　my $os = $^O;
　　print $os;
　　print "\n";#换行
　　$str = "he is out right now";
　　s/out/replacetest/;#正则表达式，字符替换
　　print $str;
　　printBettn();
　　print $ENV{"JAVA_HOME"};#打印出环境变量JAVA_HOME的值
　　printBettn();
　　print '@a @b @c @d 的值都为1 2 3',"\n"; 
　　my @a = (1..3); 
　　pop(@a); #直接从最右边取数，无需参数
　　print "\@a的值为@a,pop拿掉数组最右边的值\n"; 
　　my @b = (1..3); 
　　push(@b,'4'); 
　　print "push添加一个值到数组的最右边,此时\@b 的值是 @b。\n"; 
　　my @c = (1..3);
　　shift@c;
　　shift(@c);#调用时可加也可不加括号
　　print "shift拿掉数组最左边的一个值。\@c现在的值是@c.\n"; 
　　my @d = (1..3); 
　　unshift(@d,0,6); #将0,6加入到@d中，结果是0,6,1,2,3
　　print "\@d的值为@d,unshift添加一个值到数组的最左边。"; 
　　printBettn();#自定义的子函数需加上括号
　　$sum1=3;
　　$sum2=4;
　　$sum = getSum();#不能通过$getSum调用
　　print "\$sum is $sum";
　　my ($arg1,$arg2);#同时定义多个本层变量
　　printBettn();
　　print "引用开始了\n";
　　my $yinyong = [0,1,12];
　　print $yinyong->[2];
　　print "\n";
　　print "给子程序传入参数测试：";
　　argsTest(1,2,17,24);
　　sub printBettn{
　　print "\n";#换行
　　print "###############################################";
　　print "\n";
　　#子函数最后一句如果不是表达式，而是print，那么通常返回的是1，表示成功
　　}
　　sub getSum{
　　print "Hey,called my function!\n";
　　$sum1+$sum2;#最后一句就是返回值
　　}
　　sub argsTest{
　　my $args = @_;#接收方法参数，@_是数组，但是$args是数组的长度
　　#print @_[0];#打印出1
　　#print @_[1];#打印出2
　　#print @_[2];
　　print @_->[2];
　　print "\n数组长度：";
　　print $args;
　　}