* Scott Wiersdorf <[EMAIL PROTECTED]> [2002-12-14 13:01]:
> perl -n0777
> exit !(/pattern/)
> 
> Necessary Improvements:
> 
> - concisely get the pattern from the command-line (e.g., pattern as
>   $ARGV[0] and the file as $ARGV[1]) such that the syntax is more like
>   grep (e.g., grep 'pattern' filename => perl -args 'pattern' filename)?
> 
> Extra Credit:
> 
> - is there a short way to do it without slurping the whole file?

perl -ne"exit(/$SHELLVAR/||next)" file

-- 
Regards,
Aristotle

Reply via email to