#!/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;
}
相关推荐
神奇的perl-最佳PERL入门读物 想学PERL的话这就是一本比较好的书,值得一看
Perl语言入门(第四版) Perl语言入门(第四版) Perl语言入门(第四版)Perl语言入门(第四版)
Perl学习的必备,讲解详细具体,很容易入门。
perl语言入门.pdfperl语言入门.pdfperl语言入门.pdfperl语言入门.pdfperl语言入门.pdfperl语言入门.pdfperl语言入门.pdf
perl 入门最经典的教程了,保证质量一分就下
perl 神奇的perl-最佳Perl入门
实用 易懂
perl 语言入门教程Perl 最初的设计者为拉里·沃尔(Larry Wall),他于1987年12月18日发表。Perl借取了C、sed、awk、shell scripting以及很多其他程序语言的特性。其中最重要的特性是它内部集成了正则表达式的功能,...
包含perl入门第四版以及课后习题的程序范例
Programming Perl + Intermediate Perl+Perl 入门
神奇的perl两本合集,包括神奇的perl-perl脚本语言最佳入门读物和神奇的perl-最佳perl入门读物
Perl 入门及高级编 Perl 入门及高级编 Perl 入门及高级编
perl 语言编程 perl入门
最新版perl入门教程 简单易懂 2009perl入门教程
Perl入门及高级编程 Perl入门及高级编程
Perl语言教程 Perl语言入门 perl语言学习 perl电子教程
神奇的perl 最佳PERL入门读物,最好的perl入门读物,基础的语法以及perl思想,以及神奇的正则用法。
perl语言入门+perl语言编程,perl的两本骆驼书,就是小perl和大perl了,中文版,欢迎有需要的朋友下载
个人认为非常适合新手入门的perl语言教程,自己就是看这资料学习perl的。