Abbruch beim Einlesen einer Datei (Allgemeines zu Perl)

[thread]9161[/thread]

Abbruch beim Einlesen einer Datei

lord_astfgl

2007-07-06 13:51

User since
2007-07-06
2 Artikel
BenutzerIn
[default_avatar]

Ich habe eine Datei, in der binär-codiert double Werte stehen (je 8 Byte). Das Auslesen funktioniert, bis auf die Tatsache, dass read() nicht die ganze Datei liest, sondern vorher abbricht.

Mein (aufs wesentliche reduzierter) Code:

Code: (dl )

use strict;

my $diafile="RT_4.dia";
open(FDIA, $diafile) or die "cannot open $diafile";

my @s = stat($diafile);
print "Dateigroesse ",$s[7]," Bytes\n";

my $rec;
my $totlen=0;
my $template = "d";
my $len = length pack($template,0.);
while (1) {
    my $res=read(FDIA,$rec,$len);
    if (!defined($res)) {print $totlen," error"; last;};
    if ($res==0) {print "OK\n"; last;};
    if ($res<$len) {print $res,"<",$len,"  length_read=",$totlen+$res; last;};
    $totlen+=$len;
}

ich erhalte dann als Ausgabe
Dateigroesse 1768 Bytes
1<8 length_read=1641

Die Datei und das Skipt gibts hier:
http://home.arcor.de/lord_astfgl/perl/

Dies passiert je Datei immer an der gleichen Stelle, bei verschiedenen Dateien an verschiedenen Stellen. Mit manchen Dateien funktioniert es auch fehlerfrei.

Ich bin noch recht neu in Perl. Gibts da evtl. eine eof Byte(sequenz), weshalb read() meint, es wäre am Ende?
Im Voraus vielen Dank für die Antworten\n\n

Sucher

2007-07-07 01:27

User since
2007-03-26
47 Artikel
BenutzerIn
[default_avatar]

Hallo,
mit den Files, die du online gestellt hast, funktioniert auf winXP alles wie erwartet.
Hast du mal

Quote
'perldoc -fbinmode'

ausprobiert?

Grüße,

bloonix

2007-07-07 05:33

User since
2005-12-17
1615 Artikel
HausmeisterIn

[quote=lord_astfgl,06.07.2007, 11:51]

Code: (dl )

if ($res==0) {print "OK\n"; last;};

[/quote]
Das verstehe ich nicht ganz! Warum springst du hier aus der Schleife,
obwohl du eventuell noch garnicht zu Ende gelesen hast?

Code: (dl )

use strict;
use warnings;

my $diafile="RT_4.dia";
open(FDIA, $diafile) or die "cannot open $diafile";

my $read_len = 8;
my $tot_len  = 0;
my $file_len = (stat($diafile))[7];
print "Dateigroesse $file_len Bytes\n";

while ( my $len = sysread(FDIA, my $rec, $read_len) ) { # bis eof lesen
   if (!defined $len) {
      next if $! =~ /^Interrupted/;
      die "system read error: $!";
   }   

   # $rec Verarbeitung

   $tot_len += $len;
   warn "read $tot_len/$file_len\n";
}

\n\n

What is a good module? That's hard to say.
What is good code? That's also hard to say.
One man's Thing of Beauty is another's man's Evil Hack.

lord_astfgl

2007-07-09 11:56

User since
2007-07-06
2 Artikel
BenutzerIn
[default_avatar]

@Sucher: Danke das war das Problem. Mit binmode funktioniert es. Nur seltsam, dass es bei dir auch ohne funktioniert hat, bei mir aber nicht (auch WinXP). Vielleicht nutzen wir unterschiedliche Versionen. Ich hab 5.6.1

nochmal zur Erklärung des Problems
aus: perldoc -fbinmode
Another consequence of using binmode() (on some systems) is that special end-of-file markers will be seen as part of the data stream. For systems from the Microsoft family this means that if your binary data contains "\cZ", the I/O subsystem will regard it as the end of the file, unless you use binmode().

@opi: zu

Code: (dl )

if ($res==0) {print "OK\n"; last;};

read FILEHANDLE,SCALAR,LENGTH
Attempts to read LENGTH bytes of data into variable SCALAR from the specified FILEHANDLE. Returns the number of bytes actually read, "0" at end of file, or undef if there was an error.

d.h. ich springe nur aus der Schleife, wenn ich am Dateiende bin.\n\n

View all threads created 2007-07-06 13:51.