Opened by EagleFox at 2006-07-25 14:04
User since
2006-01-27
3881 Artikel
HausmeisterIn
2006-01-27
3881 Artikel
HausmeisterIn
Hi,
hier ein Beispiel (im kleinen Rahmen):
Das Mitteln ist hierbei nicht implementiert; Aber es soll Dir zeigen, wie Du die Datensaetze x bis y ermitteln kannst, ohne alle Datensaetze in den Speicher jagen zu muessen.\n\n
<!--EDIT|Linuxer|1153823538-->
hier ein Beispiel (im kleinen Rahmen):
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
#!/usr/bin/perl
# vim: set ts=4 sw=4 et sta:
use strict;
use warnings;
{
# Zeilentrenner neu definieren; eher Datenblocktrenner
local $/ = "\n\n";
# Datenblockweise einlesen
while ( <DATA> ) {
# Trenner entfernen
chomp;
# 2. bis 3. Datenblock ausgeben
print $_, "\n" if ( $. >= 2 and $. <= 3 );
}
}
__DATA__
AAA1 AAA2 AAA3 AAA4
BBB1 BBB2 BBB3 BBB4
BBB5 BBB6 BBB7 BBB8
CCC1 CCC2 CCC3 CCC4
Das Mitteln ist hierbei nicht implementiert; Aber es soll Dir zeigen, wie Du die Datensaetze x bis y ermitteln kannst, ohne alle Datensaetze in den Speicher jagen zu muessen.\n\n
<!--EDIT|Linuxer|1153823538-->
meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!