找错：
#!/usr/bin/perl use warnings; use strict; sub message{ my $quant = $_; #这里$_是个无效值，改成$quant=shift或$_[0] my $mess; $mess = "$quant glasses of Lemonade on the
原创
2011-08-05 13:52:24
827阅读
@var= (glob "*.pl") ;foreach $_ (@var){print "$_\n";}
转载
2014-10-09 17:10:00
204阅读
2评论
perl中的foreach结构
原创
2007-03-20 19:34:44
3549阅读
foreach 循环遍历列表值，并将控制变量(var)依次设置为列表的每个元素-
foreach - 语法
Perl编程语言中...
原创
2023-08-05 13:01:02
167阅读
while(<STDIN>){
print “I saw $_”;
}
foreach(<STDIN>){
print “I saw $_”;
}
别看这两种方式，都是读取文件， 在WHILE 操作中，PERL 读入一行，将它赋予变量，然后再进入循环，再回到开头，读入下一行。
但在FOREACH
翻译
精选
2012-05-24 16:18:21
921阅读
pop() & push()
pop() get the last element out of array, and returns that element.
@array=5..9;$fred=pop(@array); # $fred is 9, @array now is (5, 6, 7, 8)$barney=pop @array;&
原创
2012-11-05 16:35:53
756阅读
1. 语句块：{ }之间的部分即为BLOCK语句块。 2. 条件语句：if ( expression ) BLOCK; if ( expression ) BLOCK1else BLOCK2; if ( expression1 ) BLOCK1;elsif ( expression2 ) BLOCK
转载
2018-01-25 10:07:00
73阅读
2评论
例子foreach my $f (@allfiles) {chomp $f; print FOUT "$f\n";}
原创
2023-06-29 10:01:17
31阅读
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阅读
一、system perl也可以用system调用shell的命令,它和awk的system一样,返回值也是它调用的命令的退出状态. [root@AX3sp2 ~]# cat aa.pl #! /usr/bin/perl -w $file = "wt.pl"; system("ls -l wt.pl ...
转载
2021-07-16 10:05:00
1360阅读
2评论
今天学习了perl的哈希 哈希符号%%#!/usr/bin/perl perl头，如果不能运行则需要换成 #!/usr/bin/perl -wmy %ss = ('a' => 1,'b' => 2,'c' => 3,'d' => 4); 哈希数a对应1、b对应2、c对应3、d对应4 也可写成my %ss = ('a',1,'b',2,'c',3,'d',4);
原创
2014-01-20 19:50:47
1082阅读
perl 编码风格：
1.K.R
2.GNU
3.BSD
采用K&R
转载
精选
2011-01-19 16:16:06
458阅读
x? 匹配 0 次或一次 x 字符串 /cg?i/ 找到 c 后面跟着 0个或是 1个 g ，再跟着 i 的字符串，如同/cg{0,1}i/ ...
转载
2017-01-10 17:33:00
712阅读
2评论
如果对于一个绝大部分内容是静态的网站，只有极少数的地方需要动态显示，碰巧你又了解一点perl知识，那么nginx + perl的结合就能很好解决问题。要想nginx支持perl脚本，在编译nginx时候需要如下参数：./configure --with-http_perl_module如果make时候出现如下类似错误： Can’t locate ExtUtils/Embed.pm in @INC
转载
2024-04-17 16:32:58
113阅读
\s+(?\d+(?:\.\d+)?)\s+1、命名分组格式为(?)，反向引用时用/k2、命名分组的匹配的结果存在在变量%+变量中，取命名分组值，$+{grp name}.3、反向引用也可以用/g1,/g{1},...
转载
2017-01-10 20:28:00
301阅读
2评论
[oracle@jhoa 2]$ cat a2.pl foreach $key (keys %main::) {print "\$$key => $main::{$key}\n";}[oracle@jhoa 2]...
转载
2014-12-25 21:02:00
194阅读
2评论
1,一个相当常见的全局替换是缩减空白，也就是将任何连续的空白转换成单一空格：
s/\s+ //g;
2,将开头的空白替换成空字符串
s /^\s+//;
3,讲结尾的空白替换成空字符串
s /\s+$//
4,去除开头和结尾的空白符
s/^\s+|\s+$//g
原创
2013-02-20 16:00:07
636阅读
AAA
原创
2015-03-06 16:47:21
648阅读
Another good feature of Perl is RE, PerlRE.
In Perl, RE usually means patten, a match (or unmatch) of some characters template.
The patten can divide any characters into two parts: match and unmatch
原创
2012-11-15 21:03:45
1038阅读
从开始的BSP使用C语言，到后期人工智能使用Python，以及常用的shell工具，到现在使用了点perl，稍微总结一下，这几种语言的特点。如果，以后有一种自己不太用的到的，到某一次突然需要使用的时候，捡起来快一些。其实所有的程序需要完成的功能模块都比较相似：比如： 程序解析(用’;'分号还是语句的缩进关系)； 数据类型(整型、浮点型、字符/字符串及class等，数据声明使用及作用范围)； 文件处
转载
2024-01-11 13:05:10
61阅读
