Thread MIME Header löschen/ Content extrahieren (5 answers)
Opened by leo11 at 2009-04-30 16:27

pq
 2009-04-30 16:42
#121056 #121056
User since
2003-08-04
12208 Artikel
Admin1
[Homepage]
user image
2009-04-30T14:27:24 leo11
Code: (dl )
perl -p -e 'undef $/; s/^.*?\x0a\x0a(.*)/\1/msg' base64file

böse falle =)
ein perl -p wird ja ganz einfach in eine schleife umgewandelt, also im prinzip wird eine while-schleife um den code in -e drumherumgepackt.
daher greift dein $/ erst nach der ersten zeile.
abhilfe:
Code: (dl )
perl -p -e 'BEGIN { undef $/ } ...


edit: ansonsten lohnt sichs sicher, mal CPAN:MIME::Tools anzuschauen
Last edited: 2009-04-30 16:43:51 +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: Wiki:Wie frage ich & perlintro Wiki:brian's Leitfaden für jedes Perl-Problem

View full thread MIME Header löschen/ Content extrahieren