Hi,
For beginners,someone should always add this statement at the top:
use strict;
>my $lineno;
Good.
>my $current =3D "";
Here maybe you want: my $current = '3D';
In strict mode,bareword "3D" is not allowed.
>
>while(<>){
> if($current ne $ARGV){
$ARGV contains the name of the current file when reading from <>,are you sure
for it?
> $current =3D $ARGV;
It should be: $current = '3D'.$ARGV;
> print "\n\t\tFile: $ARGV\n\n";
> $lineno=3D1;
$lineno = '3D1';
> }
> print $lineno++;
> print ": $_";
>}
--
Jeff Pang
NetEase AntiSpam Team
http://corp.netease.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
