Leser: 7
![]() |
|< 1 2 3 4 5 6 7 8 >| | ![]() |
74 Einträge, 8 Seiten |
1
2
3
4
[...]
use lib qw(/home/www/web33/html/cgi-bin/test/ReadBackwards.pm);
use File::ReadBackwards;
[...]
my @lines = qx(tail -10 filename);
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
#!/usr/bin/perl
use strict;
use warnings;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use File::ReadBackwards;
my $cgi = CGI->new();
print $cgi->header('text/plain');
# Sicherstellen, dass es in dem Verzeichnis, in dem das
# Skript liegt auch ein Verzeichnis "Variables" existiert,
# in dem eine Datei "messages.txt" liegt.!!!!!!!!!
my $file = './Variables/messages.txt';
my $frb = File::ReadBackwards->new( $file ) or
die "can't read $file $!";
for(0..9){
print $frb->readline();
}
![]() |
|< 1 2 3 4 5 6 7 8 >| | ![]() |
74 Einträge, 8 Seiten |