Umgang mit Zero-byte separierten Listen... (Allgemeines zu Perl)

[thread]15567[/thread]

Umgang mit Zero-byte separierten Listen...

Leser: 18

Articles: hide open all | hide show old branches

+5 replies
hollandhasser

2010-10-25 14:50
User since
2010-10-25
1 Artikel
BenutzerIn
Hi all,

ich bräuchte hier als Perl-Neuling etwas Nachhilfe beim Basteln eines kleinen Perlskripts.

Worum gehts?

Ich habe ein mit Zero-bytes separiertes File:
Code: (dl )

"Hello World\0How are you today?\0Perl is cool!\0"
Was ich brauche, ist jedes Element einlesen, ausgeben, dann
dessen MD5 Fingerprint ausgeben, ebenfalls Zero-byte separiert.
In Pseudo-AWK ginge das so:
Code: (dl )

awk -F '\0' '{printf("%s\0%s\0",$1,md5sum($1))}' file > output
Mal abgesehen davon gibts keine md5sum Funktion in awk.

In Perl gibts MDigest::MD5.

Ich kann das schon Zeilenweise (newline-separiert lesen/schreiben) bewältigen in Perl:
Code: (dl )

1 2

tr '\0' '\n' < file | perl -MDigest::MD5=md5_hex -lpe '$_ = sprintf("%s\n%s",$_,md5_hex $_)'
Jetzt die Frage:

Wie lese/iteriere ich das File Zero-Byte separiert, jedes Element wird einmal normal (1:1) ausgegeben, dann der Digest davon, beides getrennt von einem Zero-Byte?

Hier mein Pseudo-Code:
(der aber nicht so tut, wie ich mir das vorstelle...)
Code: (dl )

perl -MDigest::MD5=md5_hex -F'\0' -le 'printf("%s\0%s\0",$_,md5_hex $_)' < file > output
Wunschergebnis:

output :=
Code: (dl )

"Hello World\0b10a8db164e0754105b7a99be72e3fe5\0How are you today?\0eb7edd81af9146ea0ef9c9397ece0bc4Perl is cool!\082a8f26caedfc4c7586abd24c577908f\0"
Danke für alle Antworten und Anregungen im Voraus.

Gruss,
Benny.
Last edited: 2010-10-25 15:01:09 +0200 (CEST)
- bianca
  
  2010-10-25 15:09
  
  User since
  2009-09-13
  7016 Artikel
  BenutzerIn
  
  2010-10-25T12:50:14 hollandhasser
  Wie lese/iteriere ich das File Zero-Byte separiert
  
  foreach (split /\0/,$input) {}
  10 print "Hallo"
  20 goto 10
- topeg
  
  2010-10-25 15:12
  User since
  2006-07-10
  2611 Artikel
  BenutzerIn
  Setze den Eingabeseparator richtig und lösche vor dem Hashen das "\0" am Ende:
  
  Code: (dl )
  
  perl -MDigest::MD5=md5_hex -e '$/="\0"; while(<>){chomp; print "$_\0".md5_hex($_)."\0"}' in.file > out.file
- renee
  
  2010-10-25 15:15
  User since
  2003-08-04
  14371 Artikel
  ModeratorIn
  Als kleines Programm und nicht als Einzeiler:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
  
  #!/usr/bin/perl use strict; use warnings; use Digest::MD5 qw(md5_hex); my @content; { open my $fh, '<', 'null_byte.txt' or die $!; local $/ = "\0"; while ( my $entry = <$fh> ) { push @content, $entry, md5_hex( $entry ); } close $fh; } open my $fh, '>', 'null_byte_new.txt' or die $!; print $fh join "\0", @content; close $fh;
  
  OTRS-Erweiterungen (http://feature-addons.de/)
  Frankfurt Perlmongers (http://frankfurt.pm/)
  --
  
  Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
  Perl-Entwicklung: http://perl-services.de/
- pq
  
  2010-10-25 15:24
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  versuchs mal hiermit:
  perl -M Digest::MD5=md5_hex -l0 -0 -pe ' $_ = md5_hex($_) ' file > output
  
  das modul heisst übrigens Digest::MD5 und nicht MDigest::MD5 (das M kommt von der kommandzeilenoption "-M").
  
  edit: -l0 -0 hinzugefügt statt BEGIN-block
  Last edited: 2010-10-25 15:30:29 +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

View all threads created 2010-10-25 14:50.