perl入门小试

#!/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;

}