Rgíón «hávkú wrote: > I'm trying to read the last line on a Plain text File.
The following was so well written by John I think it's worth repeating. Thanks John! John W. Krahn wrote: > > 1) Install http://search.cpan.org/author/URI/File-ReadBackwards-0.98/ > > use File::ReadBackwards; > my $bw = File::ReadBackwards->new( 'file' ) or die "Cannot read 'file' > $!"; > my $last_line = $bw->readline; > > > 2) Use the Tie::File module > > use Tie::File; > tie my @lines, 'Tie::File', 'file' or die "Cannot read 'file' $!"; > my $last_line = $lines[-1]; > > > 3) Read through the whole file > > open FILE, 'file' or die "Cannot read 'file' $!"; > my $last_line; > $last_line = $_ while <FILE>; > > > 4) Read the file like File::ReadBackwards does > > use Fcntl ':seek'; > > my $size = 1024; > my $buffer = ''; > my $last_line; > > sysopen FILE, 'file', O_RDONLY or die "Cannot open 'file' $!"; > binmode FILE; > > my $pos = sysseek FILE, 0, SEEK_END or die "Cannot seek on 'file' $!"; > while ( $pos ) { > $pos = 0 if ($pos -= $size) < 0; > sysseek FILE, $pos, SEEK_SET or die "Cannot seek on 'file' $!"; > sysread FILE, my $temp, $size or die "Cannot read 'file' $!"; > chomp( $buffer = $temp . $buffer ); > if ( ( $index = rindex $buffer, $/ ) >= 0 ) { > $last_line = substr $buffer, $index + length $/; > last; > } > } -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
