Rob Dixon wrote:
>
> John W. Krahn wrote:
> >
> > my @records = do {
> > local ( $/, *FILE ) = '';
> > open FILE, $ARGV[0] or die "can't open $ARGV[0]: $!";
> > grep chomp, <FILE>;
>
> This will drop the last line of the file if there is no
> terminating separator.
>
> grep {chomp, 1} <FILE>;Or: grep [ chomp ], <FILE>; John -- use Perl; program fulfillment -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
