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