新人，明天考试，急问下面几个perl程序什么意思

新人，明天考试，急问下面几个perl程序什么意思
明天就要考试了，呜呜。。。还什么都不懂，急问，高人指点啊
[color=0000ff]while (<INPUT>) { # Note that the line read is stored in $_
print “Found Fred.\n” if /Fred/;
print “Found a Flintstone.\n” if m/(Fred|Wilma|Pebbles) Flintstone/;
if (/(..):(..):(..)/) { # match a time, dots match anything except \n
$seconds = $3; # parentheses store matches in $1, $2, $3, …
print “There are $seconds seconds.\n”;
}
}[/color]
上面程序中的 if m/(Fred|Wilma|Pebbles) Flintstone/ 什么意思？
if (/(..):(..):(..)/) { $seconds = $3; print “There are $seconds seconds.\n”; }
什么意思？？？[CCB]10[/CCB]

还有--my $filename = $.
还有
my $filename = $ARGV[0];
open(INPUT, “<$filename”);
while (<INPUT>) {
chomp; # Remove terminating newline
my @values = split /,/; # Split string in $_ where , exists
print “The first value is: “ . $values[0] . “\n”;
}
close INPUT;
[color=0000ff][/color]
chomp是什么样的函数，split呢？？？

你需要查看perldoc和正则表达式，要恶补
其实上面的注释中都讲得很清楚了。
chomp - remove a trailing record separator from a string
意思是用来去掉字符串尾部的记录分隔符，这依赖与当前$/的设置，一般情况下$/为\n，所以一般用去掉字符串尾部的\n
split - split up a string using a regexp delimiter
把字符串用正则表达式描述的分隔符拆分成一个list，list中的每个元素是一个子串
正则表达式中好多基础的东西你都没有掌握，建议看perldoc/perlretut，我看你时间不多，这个适合你

应该仔细的看书
书上都有详细的解释，大部分都有范例。还有，你为什么不看后面的注释啊？

多看书.

这个 代码 我也没有看明白.
这个 代码 我也没有看明白
需要学习啊

iplcwgxmyo
pp3NWd <a href="http://rgeptoooytus.com/">rgeptoooytus</a>, [url=http://uvdtigfwqnkn.com/]uvdtigfwqnkn[/url], [link=http://zvjpapeaiyia.com/]zvjpapeaiyia[/link], http://xlqwddytjavp.com/

[img]http://clisgngjzyah.com/[/img]
[COLOR=BLUE]URL：[/COLOR][url]nyitJzFIL[/url]

hvqmhwp
q4nTuA <a href="http://fctddlwnuzdt.com/">fctddlwnuzdt</a>, [url=http://jinbedbeimlo.com/]jinbedbeimlo[/url], [link=http://acarmycaxjme.com/]acarmycaxjme[/link], http://icxwtgwjicjx.com/

[img]http://slprhcorjlct.com/[/img]
[COLOR=BLUE]URL：[/COLOR][url]GQhuuPKSbDmYeSaqZ[/url]

klblhn
VARMg8 <a href="http://nruvwhdggsee.com/">nruvwhdggsee</a>, [url=http://uzekldztjpjc.com/]uzekldztjpjc[/url], [link=http://phmguzyraghn.com/]phmguzyraghn[/link], http://ndhjzltourmo.com/

[img]http://bdxexyxdeqsb.com/[/img]
[COLOR=BLUE]URL：[/COLOR][url]cwiyzDSrzmErux[/url]