perl程序收藏1
这是我学习的最简单的perl程序，就是它，带我进入了perl的世界。#!/usr/bin/perl
while (<>) {
if ($_ =~ /^hello/i) {
print $& . "\n";
}
}
还可以再减少一行。
#!/usr/bin/perl
while (<>) {
print if($_ =~ /^hello/i);
}
当输入的字符串开头为hello(不区分大小写)时，就会匹配上，会输入刚才输入的内容。 <>就是c语言中的STDIN标准输入流，=～为匹配符号，$&为内置变量，存储匹配上的内容,^是匹配开头，i是忽略大小写。
麻雀虽小，五脏俱全。
页:
[1]