Datei bytewise einlesen (Allgemeines zu Perl)

[thread]15645[/thread]

Datei bytewise einlesen

Leser: 22

Articles: hide open all | hide show old branches

+10 replies
miwieg

2010-11-18 17:44
User since
2006-07-16
59 Artikel
BenutzerIn
Hallo!

Ich möchte eine Textdatei ganz einlesen und anschließend den Inhalt der Datei in einen Array von bytes umwandeln. Beginnen wollte ich mit:
Code (perl): (dl )

1 2 3 4

my $infile = "..." $/=undef; open(INF,$infile); my $file = <INF>;
Wie geht es dann weiter?

Vielen Dank im Voraus.
- GwenDragon
  
  2010-11-18 17:59
  User since
  2005-01-17
  14784 Artikel
  Admin1
  Code (perl): (dl )
  
  my (@bytes) = split //,$file;
  
  Ein split mit einem leerem Muster teilt in einzelne Bytes auf.
  Last edited: 2010-11-18 18:03:10 +0100 (CET)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- topeg
  
  2010-11-18 18:33
  User since
  2006-07-10
  2611 Artikel
  BenutzerIn
  man kann auch direkt byteweise einlesen:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9
  
  my $infile = "..."; open(my $fh,'<',$infile) or die ("Error open $infile ($!)\n"); my @bytes; my $byte; while(read($fh,$byte,1)) { push(@bytes,$byte);} close($fh); #...
- +7 replies
- Dubu
  
  2010-11-19 07:49
  
  User since
  2003-08-04
  2145 Artikel
  ModeratorIn + EditorIn
  
  Evtl. sollte da nach dem Öffnen der Datei noch ein binmode INF kommen. Sonst würde nachher zeichen- und nicht byteweise aufgetrennt, was auf einem Unicode-basierten System einen Unterschied macht.
  - +6 replies
  - miwieg
    
    2010-11-19 12:07
    User since
    2006-07-16
    59 Artikel
    BenutzerIn
    
    Vielen Dank an alle für die nützlichen Antworten.
    
    Wenn ich also auf Nummer Sicher gehen möchte, sollte ich folgenden Code verwenden:
    
    Code (perl): (dl )
    
    1 2 3 4 5 6
    
    my $infile = "..." $/=undef; open(INF,$infile); binmode INF; my $file = <INF>; my @bytes = split(//,$file);
    - +4 replies
    - bianca
      
      2010-11-19 12:32
      
      User since
      2009-09-13
      7016 Artikel
      BenutzerIn
      
      2010-11-19T11:07:33 miwieg
      Wenn ich also auf Nummer Sicher gehen möchte, sollte ich folgenden Code verwenden:
      
      Wenn Du auch noch von topeg die aktuelle Schreibweise für open() und in Bezug auf das Filehandle verwendest JA.
      10 print "Hallo"
      20 goto 10
      - +3 replies
      - topeg
        
        2010-11-19 12:38
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        Wollte ich auch gerade sagen.
        Bitte die Drei-Parameter Form von "open" ~~ohne~~ mit lexikalischen Filehandle und Fehlermeldung nutzen.
        
        EDIT: Fehler...
        Last edited: 2010-11-19 13:04:09 +0100 (CET)
        
        +2 replies
        
        pq
        
        2010-11-19 12:53
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        wieso ohne lexikalischen filehandle?
        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
        
        topeg
        
        2010-11-19 13:01
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        Ja anders herum. Mit lexikalischem Filehandle. Entschuldige vertippt. :-/
    - Linuxer
      
      2010-11-19 14:59
      
      User since
      2006-01-27
      3891 Artikel
      HausmeisterIn
      
      Hi,
      
      ein Denkanstoß:
      
      wenn Du "auf Nummer sicher gehen" willst, dann frage ich mich, warum Du die Datei am Stück in den Arbeitsspeicher lädst.
      
      Du verbrauchst nun einmal Platz für den Skalar $file, der die Datei komplett enthält und einmal Platz für den Array @bytes, der die Bytes enthält.
      Warum nicht die Datei gleich byteweise in den Array lesen (wenn's unbedingt alles im Array liegen muss?
      
      Z.B. so:
      
      Code: (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
      
      sub read_bytes_to_array { my $filename = shift; open my $fh, '<', $filename or die "$filename: $!\n"; binmode $fh; local $/ = \1; my @bytes = <$fh>; close $fh; return @bytes; } read_bytes_to_array( 'meine_datei.txt' );
      
      meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
      Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!

View all threads created 2010-11-18 17:44.