Thread lesen aus DATA: Wie resetten? (7 answers)
Opened by FIFO at 2008-06-08 22:59

Linuxer
 2008-06-09 11:56
#110897 #110897
User since
2006-01-27
3890 Artikel
HausmeisterIn

user image
Hallo FIFO,

es hatte seinen Grund, warum ich tell ebenfalls nannte.

Code (perl): (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
27
28
29
30
31
32
33
34

#!/usr/bin/perl
use strict;
use warnings;

my $position = tell DATA;

while ( my $line = <DATA> ) {
  print $line;
}

print "\n--8<-- ( seek DATA, 0,0 ) -->8--\n\n";

# mal schauen, was er nun ausgibt:
seek DATA, 0, 0;

while ( my $line = <DATA> ) {
  print $line;
}


print "\n--8<-- ( seek DATA, $position, 0 ) -->8--\n\n";

# mal schauen, was er nun ausgibt:
seek DATA, $position, 0;

while ( my $line = <DATA> ) {
  print $line;
}

__DATA__
Dies ist
mein Datenbereich,
den ich später
auslesen werde.


Mit seek DATA, 0, 0; setzt Du den Zeiger innerhalb des Dateihandles auf den Anfang des Handles und somit auf den Anfang des Skriptes, nicht auf den Punkt, wo der DATA-Bereich beginnt.
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!

View full thread lesen aus DATA: Wie resetten?