while (){ ###读取标准输入if (/END/) {last;}elsif (/fred/) {print 1;}elsif (/red/) {print 2;}}while (){ ###读取文件...
转载
2014-10-08 10:02:00
191阅读
2评论
[oracle@jhoa 7]$ cat 5.pl if ( $#ARGV < 0 ){ print "请输入一个日期参数\n"; exit(-1); } $var = $AR...
转载
2014-10-08 14:10:00
118阅读
2评论
v-dev-redis01:/root# cat x.pl open (LOG ,") { chomp; next if ($_ eq '192.168.32.5...
转载
2015-12-04 09:21:00
137阅读
2评论
[oracle@jhoa 6]$ cat 4.pl $mon = $ARGV[0];unless ($mon eq "Feb") {print "This month has at least thirty da...
转载
2014-10-11 10:43:00
192阅读
2评论
@var= (glob "*.pl") ;foreach $_ (@var){print "$_\n";}
转载
2014-10-09 17:10:00
204阅读
2评论
for ($i = 1;$i <= 10;$i++){ #从1数到10 print "I can count to $i!\n";}
转载
2014-10-08 16:00:00
91阅读
2评论
今天发现Perl中原来还有个while-co...
转载
2015-11-11 16:53:00
147阅读
2评论
关于Perl递归遍历目录的文章其实很多，但是大多数都是针对本地机器磁盘间的操作，如将C盘根目录下的A文件夹整个拷贝到D盘根目录下的A文件夹。但是，对于将一个局域网内其他机器开放的文件共享目录递归遍历或者拷贝到本机上，又该怎么做呢？ 在解决这个问题之初，笔者也认为和一般的递归遍历程序没什么区别，从网上随便搜份源码即可。但是
转载
2023-11-06 22:23:36
65阅读
在某些情况下，您需要多次执行一个代码块。通常，语句是按顺序执行的:函数中的第一个语句首先执行，然后...
原创
2023-08-03 13:01:56
173阅读
LINE: while () { last LINE if /^$/; # exit when done with header ...
转载
2016-01-21 21:53:00
209阅读
2评论
#计算1到100的和foreach $i (1..100){ $sum=$sum+$i;}print $sum."\n";#九九表$j=1;for $i (1..9){ for $j ($j..$i) { print "$j"."x"."$i=".$j*$i." " ; }print "\n"
原创
2012-04-22 21:43:31
5099阅读
一个循环可以嵌套在另一个循环中， Perl允许嵌套所有要嵌套的循环。
nested loops - 语法
Perl中嵌套for...
原创
2023-08-05 15:00:30
174阅读
[oracle@oadb test]$ cat t1.pl my $sql="where `lc`.`tb`.`xx` = 1 and `tb2` . `id2` = 2 or `id3` > 3 and `id...
转载
2016-12-21 17:27:00
320阅读
2评论
1. 语句块：{ }之间的部分即为BLOCK语句块。 2. 条件语句：if ( expression ) BLOCK; if ( expression ) BLOCK1else BLOCK2; if ( expression1 ) BLOCK1;elsif ( expression2 ) BLOCK
转载
2018-01-25 10:07:00
73阅读
2评论
#!/usr/bin/perl -wprint 2**4;#创建对跟随其后项目的引用符号:\e
原创
2022-06-16 07:13:19
125阅读
jrhmpt01:/root/lwp/0526# cat 0526.txt 天下金专区 投资期限自选 可进行债权转让 100元起投 每月还息，到期还本产品介绍 > 更多项目 > ...
转载
2016-05-26 18:04:00
64阅读
2评论
my @ss = ("a","b","c","d");print $ss[1] 显示为aprint @ss[1,3] 显示为a c@ss的标量为4if (@ss < 5){command}else{command}if($date == $today){command;}elseif($date == $christmas){command;}else{command;}prin
原创
2014-01-20 19:52:01
661阅读
Perl中有多种方法实现循环：
常规的while循环：
my $i = 0; while($i < scalar @array) { print $i, ": ", $arra
转载
精选
2013-03-28 13:43:11
952阅读
前言今天我们来解决一下两个文本文件的foreach嵌套循环问题。对于文件的嵌套循环不同于文本内容的循环，因为一个文件的foreach结束后，会自动关闭文件句柄，也就是说如果使用两层foreach读取文件，那么内层的foreach只能执行一次文本循环，所以对于内层循环的文本文件，需要在外层循环中打开，而不能只在循环体外进行一次文件读取，下面通过一个实例来解释整个过程。1.仅执行一次内层循环：输入：1
原创
2021-03-26 08:10:02
712阅读
