Michał Góralczyk wrote:
open( FILE, "$ARGV[1]" ) or die("can't open file $ARGV[1]: $!"); while( <FILE>) {print $_ if( /^\s*$ARGV[0]/);}
no i mały bład powinno być:
open( FILE, "$ARGV[1]" ) or die("can't open file $ARGV[1]: $!"); while( <FILE>) {print $_ unless( /^\s*$ARGV[0]/);}
ale w rzeczy samej grep do tego najlepszy.
-- mogor