fehler beim einlesen von dateien (Allgemeines zu Perl)

[thread]17316[/thread]

fehler beim einlesen von dateien

Tags: perl5 Ähnliche Threads

Leser: 16

Articles: hide open all | hide show old branches

+5 replies
Gast tenuo

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:
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)
- +2 replies
- pq
  
  2012-04-13 17:52
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  hab den 2. thread gelöscht, bitte nicht doppelt posten, danke
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
  - Gast tenuo
    
    2012-04-13 18:03
    
    sorry, war nicht absichtlich
    Last edited: 2012-04-13 18:06:43 +0200 (CEST)
- +2 replies
- pq
  
  2012-04-13 18:07
  User since
  2003-08-04
  12208 Artikel
  Admin1
  füge mal jeweils nach dem öffnen hinzu:
  
  Code (perl): (dl )
  
  1 2
  
  binmode IN; binmode OUT;
  
  und generell ist es hier vielleicht sinnvoller, die datei gleich ganz einzulesen:
  my $var = do { local $/; <IN> };
  
  durch das local $/ wird der input record separator im do-block auf undef gesetzt und es wird komplett eingelesen.
  
  zu filehandles ausserdem ganz wissenswert:
  WasIsteinLexikalischerFileHandle
  Last edited: 2012-04-13 18:10:23 +0200 (CEST)
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
  - Gast tenuo
    
    2012-04-13 18:14
    
    vielen dank für die schnelle antwort, funktioniert jetzt super !
    Last edited: 2012-04-13 18:20:42 +0200 (CEST)

View all threads created 2012-04-13 17:49.