Datein als Hex auslesen (gelöst) (Allgemeines zu Perl)

[thread]17818[/thread]

Datein als Hex auslesen [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 18

Articles: hide open all | hide show old branches

+8 replies
Gast Shiu

2012-10-06 20:55
Hey liebe Communtiy,
Ich habe einen Code im Internet gefunden, denn ich nicht ganz verstehe.
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11 12

#!/usr/bin/perl -l use strict; use warnings; open(IN,"$file") or die "sd"; while(<IN>){ my $hex = join ' ', map { unpack 'h*', $_ } do { local $/; split //, $_ }; print $hex; } close(IN);
Den Anfang lassen wir mal weg. Was mich interessiert ist was in my $hex =.. steht. So wie ich das verstehe,
benutzt er in der do Schleife local $/ um den Wert des Newlinezeichen auf undef zu setzten? Also wäre es das selbem wenn da stehen würde local $/ = undef;? Damit bei der Hex Konventierung keine Newlines umgewandelt werden?
Danach komm der Befehl split //, $_; Das dient eigentlich nur dazu damit die do Schleife ein Rückgeabewert hat und zwar $_ in diesem Fall?
Die map Funktion greift auf jedes Element vom $_ und
führt dann unpack 'h*(<-das Sternchen für beliebige Zeichenlänge?)' also es wandelt es ins Hexdecimal Zahlensystem um. Ja und dan join trennt die Hex elemente mit einen Leerzeichen.
Last edited: 2012-10-06 21:21:20 +0200 (CEST)
- topeg
  
  2012-10-06 21:57
  User since
  2006-07-10
  2611 Artikel
  BenutzerIn
  Um es etwas verständlicher zu schreiben:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34
  
  #!/usr/bin/perl use strict; use warnings; # zu lesende Datei my $file=shift(@ARGV) or die("No File"); # datei öffnen open( my $fh, '<', $file) or die("Error open $file ($!)"); # keine Zeichenkonvertierung durch Perl! binmode($fh,':raw'); # beim einlesen kein Zeilenende verwenden # alles ist eine Zeile! $/=undef; # alle Daten einlesen my $raw_data=<$fh>; # Datei schließen close($fh); # die Rohdaten in einzelne Zeichen splitten je 8bit my @data=split(//,$raw_data); # Daten Nach Hex-Werte konvertieren @data=map{ unpack('h*',$_) }@data; # das array wider zusammenführen my $hex_data=join(' ', @data); # und alles ausgeben print "$hex_data\n";
- +6 replies
- betterworld
  
  2012-10-07 02:02
  User since
  2003-08-21
  2614 Artikel
  ModeratorIn
  Guest Shiu
  
  Code: (dl )
  
  do { local $/; split //, $_ };
  
  "do" ist hier keine Schleife. Sondern es dient nur dazu, einen Block zu schaffen, damit man in dem Block local benutzen kann. Mit local wird dafür gesorgt, dass $/ in diesem Block undef ist, also einzig während der Ausführung von split.
  
  Und daher ist dieser do-Teil auch komplett unsinnig. Denn $/ wirkt sich überhaupt nicht auf die Funktion von split aus, sondern nur auf das Einlesen aus Dateien.
  
  Jedenfalls ist der Rückgabewert des "do" eine Liste mit den einzelnen Zeichen in der Zeile. Mit "map" wird dann über diese Zeichen iteriert und jedes Mal dieser unpack-Kram gemacht.
  
  P.S.: Es gibt durchaus auch sinnvolle Anwendungen solcher "do"-Konstrukte, nur eben nicht mit split. Man sieht öfter mal so etwas:
  
  Code: (dl )
  
  my $content = do { local $/; <IN> };
  
  Damit werden alle Zeilen auf einmal aus dem Filehandle gelesen, und dabei wird nicht dauerhaft der Wert von $/ geändert. Dieses Konstukt kann man als elegant betrachten, weil es in einer Zeile geht und weil "my" außerhalb des Blocks steht, sodass die Variable länger gilt. (Und weil Perl (5) im Gegensatz zu vielen anderen Programmiersprache keine Funktion hat, um einfach so alle Zeilen aus der Datei zu lesen :) Aber man kann ja "slurp" aus Path::Class benutzen, siehe meine Signatur.)
  
  Anders als hier sollen in Deinem Beispiel aber eben nicht alle Zeilen auf einmal gelesen werden, denn es wird ja explizit über die Zeilen iteriert. Daher ist es um so unklarer, was der Autor sich bei dem local $/ gedacht hat.
  Last edited: 2012-10-07 02:32:06 +0200 (CEST)
  Lieblingsmodule: IPC::System::Simple, Path::Class
  - +5 replies
  - Gast Shiu
    
    2012-10-07 18:33
    Danke, hat mir sehr geholfen beide Antworten.
    
    Jetzt will ich aus dem Hex, den ich in ein Textdokument eingespeichert habe wieder die ursprüngliche Datei erstellen.
    
    Code: (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46
    
    #!/usr/bin/perl -l use strict; use warnings; my $file = "C:\\Games\\kl.txt"; # Das ist die Datei, die ich Textdokument als Hex schreibe sub writeToList{ my $write =shift; open(WRITE, ">> C:\\Users\\Shiu\\hex.txt"); print WRITE $write,"\n"; close(WRITE); } sub verpacken{ my $file = shift; open(IN,"$file") or die "sd"; binmode(IN); while(my $content = do { local $/; <IN> }){ my $hex = join ' ', map { unpack 'h*', $_ } do { split //, $content }; writeToList($hex); print $hex; } close(IN); } sub entpacken { my $file =shift; open(OUT, "$file") or die "Beim entpacken"; while(my $write = <OUT>){ open(IN, ">> C:\\Users\\Shiu\\lolout"); print IN $write; } close(IN); close(OUT); } &verpacken($file); &entpacken("C:\\Users\\Shiu\\hex.txt");
    
    Nur klappt dieser Code nicht.
    Last edited: 2012-10-07 18:35:45 +0200 (CEST)
    - +4 replies
    - betterworld
      
      2012-10-07 18:38
      
      User since
      2003-08-21
      2614 Artikel
      ModeratorIn
      
      Guest Shiu
      
      Code: (dl )
      
      while(my $content = do { local $/; <IN> }){
      
      Das sieht etwas danach aus, als ob Du etwas unbedacht Code von mir übernommen hast und in das ursprüngliche Script eingebaut hast. Lies nochmal durch, was ich über solche Konstrukte geschrieben habe :)
      
      Siehe auch: Mein Script funktioniert nicht
      Last edited: 2012-10-07 18:41:28 +0200 (CEST)
      Lieblingsmodule: IPC::System::Simple, Path::Class
      - +3 replies
      - Gast Shiu
        
        2012-10-07 18:48
        
        Hast Recht die while schleife ist dumm.
        Last edited: 2012-10-07 18:52:10 +0200 (CEST)
        
        +2 replies
        
        topeg
        
        2012-10-07 19:31
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        Hier mal etwas Code der funktionieren sollte (ungetestet):more (18.4kb)
        
        Mir scheint du brauchst die Leerzeichen zwischen den Hexwerten nicht. Wenn dem so ist dann kannst du dir das ganze split, map, join sparen. Das würde dann schon ausreichen:
        sub verpacken { return unpack( 'h*', $_[0] ); }
        
        Gast Shiu
        
        2012-10-07 20:01
        
        Danke:)
        Last edited: 2012-10-07 20:16:01 +0200 (CEST)

View all threads created 2012-10-06 20:55.