Thread \x0D\x0A zuviel am Dateiende (14 answers)
Opened by sitescriptor at 2009-10-03 23:56

sitescriptor
 2009-10-03 23:56
#126458 #126458
User since
2009-08-09
105 Artikel
BenutzerIn
[default_avatar]
Bräuchte Eure Hilfe, weil ich nicht weis, wo ich suchen soll. Lese von STDIN (HTTP POST) in eine Datei ($localfilepath). Egal ob Text- oder Binärfile wird am Ende zusätzlich \x0D\x0A angehängt. Die Files sind also genau zwei Bytes zu lang.
Hier der entscheidende Codeausschnitt:
Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

        if ( open _TEMP_FILE, ">$localfilepath" )
            {                                                                   
            my $len = 0;
            $line = <>;
FILEREAD:   while ( $line = <> )
                {
                #   wenn Ende-boundary dann abbrechen                                                                               
                if($line =~ /^$boundary/) 
                    { last FILEREAD; }
                #   zeilendaten in datei schreiben
                print _TEMP_FILE $line;
                $len += length( $line );
                }
            #   datei schliessen
            close _TEMP_FILE;
            if($line =~ /^$boundary--/) { return; }
            }


//Modedit GwenDragon: Hex-Code korrigiert
Auf den korrekten Übergang von Zeile 9 (Ende des Einlesens) auf Zeile 15 (Schließen der Datei) habe ich geprüft.
Danke!
Last edited: 2009-10-04 11:42:27 +0200 (CEST)

View full thread \x0D\x0A zuviel am Dateiende