testcase schlägt fehl (gelöst) - #186986 (Allgemeines zu Perl)

GwenDragon

2017-07-20 19:11

User since
2005-01-17
14533 Artikel
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, Gwendolyn

Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel