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]
