> Hi, > > I have the following code in a script I'm writing: > > foreach my $line (<INN>) { > if ( 10 == ($line =~ s/,/,/g) ) { > print OUT $line; > } > } > > Is this poor style? It looks a bit ugly, but I can't figure out a > better way to do it. I'm sure there is :) > The script will be reused and probably maintained by someone else. Is > there a more "standard" way of doing this?
for my $line (<INN>) { if ( 10 == ($line =~ tr/,//) ) { print OUT $line; } } -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>