Thread Letzte 10 Zeilen einer Textdatei ausgeben (73 answers)
Opened by TrioxX at 2006-12-03 12:20

renee
 2006-12-06 11:14
#9259 #9259
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
@topeg: So ganz korrekt arbeitet der Code aber nicht:

Code: (dl )
1
2
3
4
5
6
[... # Dein Code copy&past ...]
open(my $fh, '<', './pm_groups.txt') or die "$!\n";
my @lines = read_back($fh,20);
close($fh);

print 'Zeilen = '.@lines.":\n".join('',@lines)."\n";
sollte ja 20 Zeilen einlesen. Ergebnis:
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
Zeilen = 10:
Kaiserslautern.pm - kaiserslautern...
Berlin.pm - berlin...
Erlangen.pm - Erlangen...
Bielefeld.pm - bielefeld...
Ruhr.pm - ruhr-pm...
München.pm - perl-mongers...
Köln.pm - cologne...
Koblenz.pm - koblenz...
Paderborn.pm - paderborn...
Chemnitz.pm - chemnitz...


WinXP Home
ActivePerl 5.8.8
OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

View full thread Letzte 10 Zeilen einer Textdatei ausgeben