Opened by tenuo at 2012-04-13 17:49
hallo,
ich schreibe grade an nem programm um datein über sockets zu übertragen doch PERL ließt die Dateien irgendwie falsch ein. Als ich die originale datei mit der neuen kopie verglichen habe, hab ich gesehen, dass perl ständig zeilenumbrüche reingemacht hat und die neue datei deswegen fehlerhaft ist.
Bitte antworten, wenn jemand was dazu weiß :)
Ich habe den code etwas vereinfacht und er sieht dann so aus:
Last edited: 2012-04-13 17:51:32 +0200 (CEST)
ich schreibe grade an nem programm um datein über sockets zu übertragen doch PERL ließt die Dateien irgendwie falsch ein. Als ich die originale datei mit der neuen kopie verglichen habe, hab ich gesehen, dass perl ständig zeilenumbrüche reingemacht hat und die neue datei deswegen fehlerhaft ist.
Bitte antworten, wenn jemand was dazu weiß :)
Ich habe den code etwas vereinfacht und er sieht dann so aus:
Code (perl): (dl
)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
use strict; use warnings; my $var; #SENDERSEITE: open(IN, "<test.jpg"); #bild öffnen while (<IN>) { $var=$var . $_; #einlesen des bildes in $var } close(IN); #EMPFÄNGERSEITE: open(OUT, ">result.jpg"); print OUT "$var"; #schreiben von $var in neues bild close OUT;
Last edited: 2012-04-13 17:51:32 +0200 (CEST)