James Kelty wrote: > > Is there a document in perldoc that tells the best way to get the last line > of a file? Below is my usual code for reading a file. > > #!/usr/bin/perl -w > > $file = qq(/some/file/); > > open FILE, "$file" or die "Cannot open file: $!\n"; > > while(<FILE>) { > do something with the line; > } > > close(FILE); > > What I want to do is read just the last line. Might help in the case of a > password file or something like that.
use File::ReadBackwards; my $file = q(/some/file); $bw = File::ReadBackwards->new( $file ) or die "can't read $file: $!"; $last_line = $bw->readline; John -- use Perl; program fulfillment -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]