perl基础
喜欢散步
这个作者很懒,什么都没留下…
展开
-
PERL语言入门:第三章:列表与数组:习题2
输入数字, 并输出对应的字母#!/usr/bin/perl -w#先建一个数据库@test = ('a'..'z');@db = ();print "请输入一串数字:";$number = ;while($number > 0){ $index = $number%10; #print "$test[$index-1]\n"; unshift @db, $test[$原创 2015-05-29 01:40:05 · 445 阅读 · 0 评论 -
PERL语言入门:第三章:列表与数组:sort, reverse用法
#!/usr/bin/perl -w#reverse 反序一个数组或列表#sort 排序数组#注意,这两个函数并不会修改原数组, 要得到调整后的数,请另保存@test = qw/user root localhost password etc passwd/;print "@test\n";#my @a = sort @test;#print "@a\n";print ((sor原创 2015-05-25 02:59:35 · 6594 阅读 · 0 评论 -
PERL语言入门:第四章:子程序(函数):习题1:写一个程序, 求所有参数的和
#!/usr/bin/perl use warnings;use strict;sub sub_max{ my $sum; foreach (@_){ $sum += $_; } print "总和是: $sum \n"; $sum;}&sub_max(1,2,3,4,5,6,7,8,9);my @fred = qw{1 3 5 7 9};my $fred_total原创 2015-06-09 15:22:27 · 1155 阅读 · 0 评论 -
PERL语言入门:第三章:列表与数组:foreach, $_, each用法
#!/usr/bin/perl -w#foreach输出数组或列表#$_为 PERL的默认变量, 当foreach不设置参数时, 默认保存到$_中#eg.@array = qw/path user login passwd test/;print "数组\@arry值为:@array\n";print qq/用foreach输出数组:\n/;#注意这里的数组要用括号括住才行fo原创 2015-05-24 05:12:27 · 13388 阅读 · 1 评论 -
PERL语言入门:第四章:子程序(函数):习题2:求1-100总和
#!/usr/bin/perluse warnings;use strict;my @number = 1..100;my $sum = &number_sum(@number);print "总和是: $sum\n";sub number_sum{ my $sum; foreach (@_){ $sum += $_; } $sum;}原创 2015-06-09 15:35:50 · 1094 阅读 · 0 评论 -
PERL语言入门:第四章:子程序(函数):参数与子程序的私有变量
默认情况下, perl中的所有变量都是全局的。如果要创建私有变量, 可以用my关键字,它能另一个变量局限于子程序或一个语句块中。({ } 为一个语句块)在perl中, 函数的参数会被自动保存到数组变量: @_中, 第一个变量为$_[0], 第二个为: $_[1], 依次类推。root@firecat:~# cat test.pl#!/usr/bin/perl -w原创 2015-06-09 14:37:39 · 1404 阅读 · 0 评论 -
PERL语言入门:第三章:列表与数组:访问数组元素与特殊索引
#!/usr/bin/perl -w#下面定义了三个数组$test[0] = 'black';$test[1] = "gteen";$test[2] = "red";print qq/打印自定义的三个数组:\n/;print "@test\n";print @test,"\n";#上面的打印, 说明加""与不加是有区别的, 加了的话默认在元素中加空格print q/打印$tes原创 2015-05-24 03:36:36 · 2024 阅读 · 0 评论 -
PERL语言入门:第三章:列表与数组:pop,push, shit, unshit, splice函数
#!/usr/bin/perl -l#列表赋值时,记得加括号#左边比右边多, 多出来的会被赋于undef#右边比左边折, 多出来的会被忽略@array = 2..9;pop @array or pop (@array)//如果加不加括号不影响的话,perl中可以不加push @arraypop出从尾部弹出, push为从尾部放入shit/unshitsh原创 2015-05-24 04:47:02 · 2110 阅读 · 0 评论 -
perl中, 用于stdin时的foreach与while的细微差别
#!/usr/bin/perl -w#foreach与while作用于<>的细微差别print "下面是foreach 对于stdin:";foreach (){ print "$_";}print "下面是while 对于stdin:";while(){ print "$_";}#foreach等到按ctr+d时, 一次输出, #while每次回车都输出一次原创 2015-06-05 15:18:13 · 780 阅读 · 0 评论 -
perl好玩的编程1:随机数生成
准备写一点好玩的东东。原创 2015-05-29 02:44:07 · 1276 阅读 · 0 评论 -
PERL语言入门:第四章:子程序(函数) :调用子程序与子程序返回值
调用子函数, 这样:&SUMDATA;或&SUMDATA($a, $b);当然, 有些情况可以省略&号或括号:SUMDATA($a, $b);SUMDATA $a, $b (这种情况要前面先定义了才行)函数的返回值:在perl 中函数返回值为最后一条语句的返回值:sub SUMDATA{ $a + $b; #这里的$a+$b为返回值}sub SUM原创 2015-05-29 02:33:25 · 4440 阅读 · 0 评论 -
PERL语言入门:第四章:子程序(函数)
写一个简单的函数。 用于计算两个数的和。 1 #!/usr/bin/perl -w 2 #定义一个子程序, 用于两数相加 3 sub SUM(){ 4 my $sum=$_[0]+$_[1]; 5 print "$_[0] + $_[1] = $sum\n"; 6 } 7 8 while(1){ 9 c原创 2015-05-29 02:13:55 · 744 阅读 · 0 评论 -
PERL语言入门:第三章:列表与数组:习题3
输入一串字符串(每行一个串), 之后输出:1. 一整行输出, 在每个之间加空格2. 分行分别输出#!/usr/bin/perl -w#获取字符串chomp(@db=);#下面为一行输出整个数组print "@db\n";#下面为分行输出每个元素#for $index (0..$#db){# print "$db[$index]";# print "\n";#}原创 2015-05-29 01:54:13 · 574 阅读 · 0 评论 -
PERL语言入门:第三章:列表与数组:习题1
输入一些字符串, 并输出。#!/usr/bin/perl -w#读入字符串并输出chomp(@test=);print "@test\n";print "Now let me reversed the list.\n";print ((reverse @test)."\n");//反向输出字符串原创 2015-05-29 01:33:04 · 547 阅读 · 0 评论 -
本人博客已迁移
本人博客已迁至: http://www.linux-info.org喜欢perl, linux, 渗透, 编程的可以看看, 一起交流原创 2015-07-19 00:48:55 · 820 阅读 · 0 评论