testcase schlägt fehl (solved) - #186986 (Allgemeines zu Perl)

GwenDragon

2017-07-20 19:11

User since
2005-01-17
14816 articles
Admin1

2017-07-20T11:44:30 rosti
Des Weiteren kann es unter Win32 passieren, dass die Datei bereits beim Öffnen gekürzt wird, weil Win32 die Datei als Textdatei betrachtet und bestimmte Bytesequenzen wie z.B. A0 am Dateiende einfach entfernt.

Hast du was zum Testen?

Ich kann es auf Windows 10 mit 5.20.3 nicht nachvollziehen, dass beim Öffnen mit binmode die \x0A weg geworfen werden.

a.pl:

Code (perl): (dl )

my $string = "TEST\xA0\xA0\xA0\xA0\xA0\xA0\xA0\xA0";
if (! -s 'a.txt') {
        open my $fh, '>', 'a.txt';
        binmode $fh;
        print $fh $string;
        close $fh;
}

open my $fh2, '<', 'a.txt';
binmode $fh2;
my $data = <$fh2>;
close $fh2;

if (length($string) != length($data)) {
        die "STRANGE!";
}

Code: (dl )

T:\>del a.txt
T:\>perl a.pl
T:\>hd a.txt

       /0 /1 /2 /3 /4 /5 /6 /7 /8 /9/ A /B /C /D /E /F   0123456789ABCDEF
0000 : 54 45 53 54 A0 A0 A0 A0 A0 A0 A0 A0               TEST........

Last edited: 2017-07-20 19:13:51 +0200 (CEST)

die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten