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 = ;
print $yinyong->;
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 @_;#打印出1
#print @_;#打印出2
#print @_;
print @_->;
print "\n数组长度：";
print $args;
}
页:
[1]