Datei einlesen und ausgeben (gelöst) (Netzwerkprogrammierung und Netzwerke mit Perl)

[thread]19843[/thread]

Datei einlesen und ausgeben [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 16

Articles: hide open all | hide show old branches

+11 replies
ITobiI

2015-10-10 11:55
User since
2015-09-10
70 Artikel
BenutzerIn
Hi, ich muss nochmal ne dumme Frage stellen und zwar wenn ich eine Datei einlesen und ausgeben möchte, die nicht unbedingt eine Textdatei sein muss, sondern eine wie auch immer geartete Datei kann ich diese Datei dann auf folgende Art und Weise einlesen bzw. ausgeben:
Code: (dl )

1 2 3 4 5 6

open (DATEI, "/root/Documents/Socket-Programmierung_2/Datei/test.txt") or die $!; while(<DATEI>) { $daten = $daten.$_; } close (DATEI);
Code: (dl )

print "$daten";
Falls das nicht möglich ist, was müsste ich dann ändern? Danke schonmal im voraus.
- +10 replies
- Raubtier
  
  2015-10-10 12:19
  User since
  2012-05-04
  1075 Artikel
  BenutzerIn
  Dieses Vorgehen ist, ob Text-Datei oder nicht, sowieso schlecht.
  
  Es liest sich so: lies die Datei, teile sie in Zeilen auf und dann füge die Zeilen wieder zusammen. Da kann man sich das Aufteilen in Zeilen und anschließende Zusammenfügen auch gleich sparen.
  
  Wenn die ganze Datei auf einmal in ein Skalar gelesen werden soll, dann nimm zum Beispiel read_file aus File::Slurp oder verwende Code wie diesen hier:
  
  Code (perl): (dl )
  
  1 2 3 4 5
  
  my $daten = do { open(my $FH, "<", "dateiname") or die $!; local $/; <> };
  
  Merke:
  - Dateihandeles mit $ beginnen!
  - close passiert automatisch, wenn das Dateihandle aus dem Scope geht
  - mit
  
  Code (perl): (dl )
  
  local $/
  
  stellst du das Aufsplitten in Zeilen aus, siehe perlvar.
  
  Obiger Code gilt für Textdateien. Wenn du Binärdateien hast, dann musst du das Perl mitteilen. Siehe perlfunc binmode. Das IO-Layer kannst du auch gleich beim Öffnen setzen, siehe perlfunc open. Also dann
  
  Code (perl): (dl )
  
  open my $FH, "<:raw", $dateiname
  
  bzw.
  
  Code (perl): (dl )
  
  read_file($dateiname, binmode => ':raw');
  
  mit File::Slurp.
  
  Eine weitere Bemerkung habe ich noch: warum fangen all deine Pfade mit /root/ an? Warum benutzt du nicht einen normalen User-Account?
  - +9 replies
  - ITobiI
    
    2015-10-10 17:33
    
    User since
    2015-09-10
    70 Artikel
    BenutzerIn
    
    Weil das mein normaler User-Account ist. :) Aber eine Frage hät ich noch: einen universellen Code zum einlesen von wie auch immer gearteten Dateien gibt es nicht? Weil mein Prof. hat gemeint wir sollen nicht unbedingt davon ausgehen das es sich bei der verwendeten Datei um eine Textdatei handelt.
    Last edited: 2015-10-10 17:39:48 +0200 (CEST)
    - GwenDragon
      
      2015-10-10 19:25
      
      User since
      2005-01-17
      14748 Artikel
      Admin1
      
      Doch kann man machen. ;)
      
      Code (perl): (dl )
      
      1 2 3
      
      open(my $FH, "<", "dateiname") or die $!; binmode $FH; $daten = <$FH>;
      
      jetzt sind die Daten binär alle als Bytes in $daten drin.
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
    - +7 replies
    - Raubtier
      
      2015-10-10 22:41
      
      User since
      2012-05-04
      1075 Artikel
      BenutzerIn
      
      Hast du überhaupt gelesen und verstanden, was ich geschrieben habe?!
      - +6 replies
      - ITobiI
        
        2015-10-11 10:03
        
        User since
        2015-09-10
        70 Artikel
        BenutzerIn
        
        Ja hab ich, aber es funktioniert nicht.
        
        +5 replies
        
        betterworld
        
        2015-10-11 10:20
        
        User since
        2003-08-21
        2614 Artikel
        ModeratorIn
        
        Natürlich funktioniert es. Du hast halt irgendwas falsch gemacht. Wir können dir aber nicht sagen, was es ist. Du müsstest genau schreiben, was Du getan hast. Genaues Script, genauer Aufruf, genaue Fehlermeldung.
        
        (Übrigens, wer meine Signatur liest, wird schönere Möglichkeit zum Einlesen von Dateien finden. Ich würde dir aber erstmal raten, den Code von Raubtier zum Laufen zu kriegen.)
        Last edited: 2015-10-11 10:24:26 +0200 (CEST)
        Lieblingsmodule: IPC::System::Simple, Path::Class
        
        +4 replies
        
        ITobiI
        
        2015-10-11 18:17
        
        User since
        2015-09-10
        70 Artikel
        BenutzerIn
        
        Aber der Code von GwenDragon funktioniert. :)
        
        +3 replies
        
        GwenDragon
        
        2015-10-11 22:54
        
        User since
        2005-01-17
        14748 Artikel
        Admin1
        
        Dann solltest du auch mal auf meinen Post antworten, und nicht immer nur auf den letzten, ein Thread ist dich kein Kettenbrief ;).
        Freut mich ja wenns geht.
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        +2 replies
        
        ITobiI
        
        2015-10-13 16:36
        
        User since
        2015-09-10
        70 Artikel
        BenutzerIn
        
        Hi, Eine Frage hät ich noch: könnt ich das auch so machen:
        
        Code: (dl )
        
        1 2 3
        
        open(DATEI, "<", "/root/Documents/Socket-Programmierung_2/Datei/Test") or die $!; binmode DATEI; @daten = <DATEI>;
        
        Falls nicht, was müsste ich ändern?
        
        GwenDragon
        
        2015-10-13 17:14
        
        User since
        2005-01-17
        14748 Artikel
        Admin1
        
        Ja, kannste so machen.
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

View all threads created 2015-10-10 11:55.