当前位置:首页 > 开发 > 开源软件 > 正文

perl入门小试

发表于: 2015-07-08   作者:zengshaotao   来源:转载   浏览:
摘要: #!/usr/bin/perl ##############################################################################   my $os = $^O;   print $os;   print "\n";#换行   $str = "he is

#!/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入门小试

  • 0

    开心

    开心

  • 0

    板砖

    板砖

  • 0

    感动

    感动

  • 0

    有用

    有用

  • 0

    疑问

    疑问

  • 0

    难过

    难过

  • 0

    无聊

    无聊

  • 0

    震惊

    震惊

编辑推荐
入门就是能写出一个HelloWorld,前提自然需要先安装语言环境。 一、获取安装 1,来这里下载Perl,按
入门就是能写出一个HelloWorld,前提自然需要先安装语言环境。 一、获取安装 1,来这里下载Perl,按
入门就是能写出一个HelloWorld,前提自然需要先安装语言环境。 一、获取安装 1,来这里下载Perl,按
入门就是能写出一个HelloWorld,前提自然需要先安装语言环境。 一、获取安装 1,来这里下载Perl,按
1. 题目 2. 代码与输出 ch6-family-name.pl 1 # ------------------------------------------------
1. 习题 2. 代码与输出 cat_reverse.pl 1 # ----------------------------------------------------
jetty是一个设计很优秀的嵌入式的servlet引擎,精悍短小是其最大的特点;粗略的看了下源码,发现和t
1. 工程结构 设置模板: product.ftl <html> <head> <title>Welcome!</title>
程序代码 <%@ page contentType="text/html;charset=GBK"%> <%@ page import="java.sql.*"
前几天将段式保护模式从理论上了解了。所以这几天就借助一些书籍和网络得力量来争取实践---将代码跳
版权所有 IT知识库 CopyRight © 2009-2015 IT知识库 IT610.com , All Rights Reserved. 京ICP备09083238号