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

leo11
 2009-04-30 16:27
#121055 #121055
User since
2008-08-14
250 Artikel
BenutzerIn
[default_avatar]
Hallo liebe Perl Gemeinde,

ich habe eine Datei mit einem nach RFC 1341 konformen MIME Header. Sieht wie folgt aus:

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
MIME-Version: 1.0
Content-Type: application/pdf
Content-Transfer-Encoding: base64
X-Lagos-Appl: GEF
X-Lagos-Doc: GEFTOP
X-Lagos-ID: 123456789012345
X-Lagos-Env: uiop
X-Lagos-Cust: 23344444444
X-Lagos-Version: 1.0

HGBERi0xLjIKJcfsj6IKNSAwIG9iago8PC9MZW5ndGggNiAwIFIvRmlsdGVyIC9GbGF0ZURlY29k
ZT4+CnN0cmVhbQp4nO2d3XLbNhaAfa2nwF3ZmZDBD3/3zkmURhvFSW067UVndtCYW9OSSEck1fHM
Pl6fYZ/Az7DXew4AyrQcx5LtxmQLtyFFEDgAznfwT4KfCfUYofifOX9ajD6PfoR/IqQkSjglC/Uz


Der Teil nach dem Header ist base64 code den ich decoden möchte. Nun brauch ich eine Regel, in der Art: Decode ab Zeile 11, oder ab dem ersten Vorkommen von \n\n. Hier mein letzter Versuch:
Code: (dl )
perl -p -e 'undef $/; s/^.*?\x0a\x0a(.*)/\1/msg' base64file

Ergebnis:
Code: (dl )
1
2
3
4
MIME-Version: 1.0
HGBERi0xLjIKJcfsj6IKNSAwIG9iago8PC9MZW5ndGggNiAwIFIvRmlsdGVyIC9GbGF0ZURlY29k
ZT4+CnN0cmVhbQp4nO2d3XLbNhaAfa2nwF3ZmZDBD3/3zkmURhvFSW067UVndtCYW9OSSEck1fHM
Pl6fYZ/Az7DXew4AyrQcx5LtxmQLtyFFEDgAznfwT4KfCfUYofifOX9ajD6PfoR/IqQkSjglC/Uz


Verstehe nicht, wieso die erste Zeile noch da ist. Ich finde einfach keine zufriedenstellende Lösung.. . Kann mir jemand weiterhelfen?

VG
leo11

Nachtrag:
Das mit Zeile 11 war mir zu unsicher. Wenn ich es richtig verstanden habe, kann dass auch differieren.
Last edited: 2009-04-30 16:43:05 +0200 (CEST)

View full thread MIME Header löschen/ Content extrahieren