MIME Header löschen/ Content extrahieren (Allgemeines zu Perl)

[thread]13458[/thread]

MIME Header löschen/ Content extrahieren

Leser: 13

Articles: hide open all | hide show old branches

+6 replies
leo11

2009-04-30 16:27
User since
2008-08-14
250 Artikel
BenutzerIn
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)
- +5 replies
- pq
  
  2009-04-30 16:42
  User since
  2003-08-04
  12208 Artikel
  Admin1
  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 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: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
  - +4 replies
  - leo11
    
    2009-04-30 16:59
    User since
    2008-08-14
    250 Artikel
    BenutzerIn
    
    Und schon geht's auch mit meiner favorisierten Zeile:
    
    Code: (dl )
    
    perl -p -e 'BEGIN { $/ = "\n\n" ;} if ( $. == 1 ) { s/.*//xmsg }' base64file
    
    Danke.
    
    Die Erklärung ist mir nicht ganz klar.
    
    Kann man eigentlich auch etwas in der Art $/ = hex(0a0a) angeben?
    - +3 replies
    - pq
      
      2009-04-30 17:15
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      was ist dir daran unklar?
      wenn du -p benutzt, wird der code in -e in eine schleife eingepackt.
      und zwar:
      
      Code: (dl )
      
      perl -ple's/.../.../;' file
      
      wird zu
      
      Code: (dl )
      
      1 2 3 4 5 6 7 8
      
      BEGIN { $/ = undef; $\ = "\n"; } LINE: while (defined($_ = <ARGV>)) { chomp $_; s/.../.../; # <----- hier dein code } continue { print $_; }
      
      und wenn du das mit $/ reinpackst, steht es halt in der schleife.
      sobald aber die erste zeile gelesen wurde, gilt $/ natürlich nur für die verbleibenden zeilen.
      weiss nicht, wie ich es sonst noch erklären soll.
      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
      - +2 replies
      - leo11
        
        2009-04-30 18:12
        
        User since
        2008-08-14
        250 Artikel
        BenutzerIn
        
        Jetzt hab ich's verstanden, danke für deine Hilfe!
        
        Werd später mal einen Blick in MIME::Tools werfen.
        
        nepos
        
        2009-04-30 21:59
        
        User since
        2005-08-17
        1420 Artikel
        BenutzerIn
        
        Tu dir den Gefallen und benutz die Mime::Tools.

View all threads created 2009-04-30 16:27.