输出匹配行

yongshunz

1^# yongshunz 发表于 2006-06-10 20:33

输出匹配行
<code>
1#!/usr/bin/perl
2 open(PH,'/tmp/acc');
3 while (<PH>) {
4 print $1 if (m/^17.*\n$/);
5 }
6 close(PH);
~
</code>
不知道怎样输出匹配的行。

flw

2^# flw 发表于 2006-06-10 20:46

把 $1 去掉就行了。.