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是忽略大小写。

麻雀虽小，五脏俱全。