UUencode und Base64 (gelöst) (Allgemeines zu Perl) - Perl-Community.de

Start · Board · Anwendungen/Programme/Skripte in Perl · Allgemeines zu Perl

2024-12-22 21:47:02
Europe/Berlin
Einloggen (Registrieren)
- Einstellungen
- Statistics
Jemand zu Hause?
0 Benutzer online
1 Gast

[thread]20517[/thread]

submit to reddit

UUencode und Base64 [gelöst]

[gelöst]

Tags: perl5 Ähnliche Threads

Leser: 14

Articles: hide open all | hide show old branches

+9 replies
rosti

2018-10-19 08:13
User since
2011-03-19
3492 Artikel
BenutzerIn
https://www.perlmonks.org/?node=How%20do%20I%20dec...
Code (perl): (dl )

1 2 3 4

tr#A-Za-z0-9+/##cd; # remove non-base64 chars tr#A-Za-z0-9+/# -_#; # convert to uuencoded format my $len = pack("c", 32 + 0.75*length); # compute length byte print unpack("u", $len . $_); # uudecode and print
Was tut sich hier im Einzelnen? Kann mir das mal jemand erklären so daß ich das verstehe? Insbesondere die tr Zeilen.

MfG
Last edited: 2018-10-19 08:26:33 +0200 (CEST)
- +2 replies
- renee
  
  2018-10-19 09:47
  User since
  2003-08-04
  14371 Artikel
  ModeratorIn
  Code: (dl )
  
  tr#A-Za-z0-9+/##cd;
  
  ist (im Prinzip) das gleiche wie
  
  Code: (dl )
  
  $_ =~ s/[^A-Za-z0-9+\/]//g
  
  tr ersetzt jedes Vorkommen jedes Zeichens aus dem ersten Teil (Suchteil) durch das entsprechende Zeichen aus dem zweiten Teil (Ersetzenteil).
  
  tr/AB/nm/ ersetzt also alle "A" durch "n" und alle "B" durch "m".
  
  Wenn - wie oben - der Ersetzenteil leer ist, wird einfach der Suchteil auch als Ersetzenteil genommen.
  
  tr/AB// ist also das gleiche wie tr/AB/AB/.
  
  Mit "-" kann man Zeichenklassen definieren. tr/0-3// ist also das gleiche wie tr/0123//.
  
  Das c-Flag bewirkt, dass das Komplement der Suchliste genommen wird und das d-Flag, dass alle Zeichen, die gefunden aber nicht ersetzt werden aus dem String gelöscht werden.
  
  Code: (dl )
  
  tr#A-Za-z0-9+/# -_#;
  
  Diesmal gibt es auch im Ersetzenteil eine Zeichenklasse. Nämlich von " " bis "_". Welche Zeichen das sind, kann man leicht mit perl -E 'say ">>",chr($_),"<<" for ( ord(" ") .. ord("_"))' herausfinden...
  
  Eine Verkürzung: tr#A-C# -"# ist das gleiche wie tr#A-C# !"# bzw tr#ABC# !"#
  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/
  - rosti
    
    2018-10-19 09:56
    
    User since
    2011-03-19
    3492 Artikel
    BenutzerIn
    
    Ein herzliches Dankeschön Reneé für Deine erstklassige Erklärung!
    
    MfG
    
    PS: Wobei $len aufrund der 'c' Schablone in pack nur Werte von -127 bis +127 annehmen kann.
    
    .
    Last edited: 2018-10-19 10:05:44 +0200 (CEST)
- bianca
  
  2018-10-20 08:35
  
  User since
  2009-09-13
  7016 Artikel
  BenutzerIn
  
  Und das Zählen wie z. B. hier: https://stackoverflow.com/questions/9709133/using-...
  10 print "Hallo"
  20 goto 10
- +5 replies
- GwenDragon
  
  2018-10-20 13:00
  
  User since
  2005-01-17
  14759 Artikel
  Admin1
  
  Es gibt schon nette Tricks, um etwas schneller zu tippen. Das ist eben Perl: viele Wege, die zu unlesbarem, unverständlichen Code führen können.
  Und wer möchte später so einen Code pflegen, nur die Person welch es erstellte. ;)
  
  Bringt so ein Perl-Golfing-Code mehr Schnelligkeit oder ist das nur ein Beweis wie man Code kürzer schrieben kann?
  Last edited: 2018-10-20 13:01:45 +0200 (CEST)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +4 replies
  - haj
    
    2018-10-20 15:16
    
    User since
    2015-01-07
    558 Artikel
    BenutzerIn
    
    Das würde ich schon im historischen Kontext betrachten.
    In dem zitierten Perlmonks-Artikel steht der Hinweis (Hervorhebung von mir):
    
    Quote
    Here is our local, out-dated (pre-5.6) version:
    
    Die aktuelle FAQ empfiehlt nur noch MIME::Base64, und nachdem das gleich in den C-Code weiterreicht, dürfte es auch von der Geschwindigkeit her keine Probleme geben.
    
    Aber MIME::Base64 ist erst seit der Perl-Version 5.8, also seit Juli 2002 im Core. In den Zeiten davor war ich schon manchmal froh, als nicht-root-Benutzer auf einem Web-Server (d.h. kein make, kein C-Compiler, mithin kein CPAN nutzbar) für solche Probleme eine "Bordmittel-Lösung" geboten zu bekommen.
    
    Ich pflege gelegentlich Perl-Code aus der Zeit und finde es eine positive Eigenschaft von Perl, wie viel von dem alten Zeug immer noch reibungslos funktioniert. Zum Vergleich: Anno 2002 gab es die Java-Version 1.4 und JavaScript war noch in Wildwest-Manier vom Browser abhängig. Wo läuft noch Java- oder JavaScript-Code, der seit damals unverändert ist?
    
    Hans Sachs meint dazu (die Meistersinger von Nürnberg):
    
    Quote
    Verachtet mir die Meister nicht, und ehrt mir ihre Kunst!
    - +3 replies
    - rosti
      
      2018-10-20 16:48
      
      User since
      2011-03-19
      3492 Artikel
      BenutzerIn
      
      MIME::Base64 läuft in meiner Win-XP-Perlversion über XS Loader da kann ich gar nicht reingucken (Base64.dll). Nun, es ist auch keine Hexerei den Algorithmus diskret zu implementieren, hier isser in JS http://rolfrost.de/Base64.js
      
      und natürlich kann man es auch über pack/unpack "u" machen. Unix-to-Unix-Encode ist so alt wie Unix selbst.
      
      Schönes Wochenende.
      
      PS: Ich vermute daß über XS eine UUencode-c-Library reingeschmackt wird. Wer noch eine PP (Pure Perl) Version des Moduls hat, kann ja mal eingucken.
      
      .
      Last edited: 2018-10-20 16:56:12 +0200 (CEST)
      - +2 replies
      - haj
        
        2018-10-20 23:59
        
        User since
        2015-01-07
        558 Artikel
        BenutzerIn
        
        2018-10-20T14:48:06 rosti
        MIME::Base64 läuft in meiner Win-XP-Perlversion über XS Loader da kann ich gar nicht reingucken (Base64.dll).
        
        Da kann man schon reingucken: https://st.aticpan.org/source/GAAS/MIME-Base64-3.1...
        
        Der Witz an dem alten FAQ-Eintrag ist, dass zunächst Base64 in UUcode umgewandelt wird, damit man's hinterher an unpack verfüttern kann - und man auf diese Weise in Perl 5.6 ohne CPAN-Module Base64 decodieren konnte.
        
        MIME::Base64 kann kein UUencode/UUdecode. Es gibt einen Perl-Modul, der UUencode/UUdecode macht: Convert::UU hat auch schon viele Jahre auf dem Buckel, ist Pure-Perl, und in dessen Innerem findet man diese beiden Zeilen:
        
        Code (perl): (dl )
        
        1 2 3 4
        
        # in sub _uuencode_chunk: my $encoded_string = pack("u", $string); # unix uuencode # in sub _uudecode_chunk: my $ret = unpack("u", $string);
        
        ...es läuft also auch da auf pack/unpack hinaus. Der Sourcecode dafür ist in https://st.aticpan.org/source/XSAWYERX/perl-5.28.0... zu finden, keine Hexerei, aber auch keine Freude zu lesen.
        
        rosti
        
        2018-10-21 08:09
        
        User since
        2011-03-19
        3492 Artikel
        BenutzerIn
        
        Nun, daß es zu UUencode keine c-Library gibt, wundert mich ein bischen. Und ich kann mich auch erinnern, daß in älteren MIME::Base64 PP Versionen, UUencode zum Einsatz kam.
        
        MfG
        
        PS: http://numerical.recipes/utils/uuencode.c.txt
        Gibts ja doch.
        Last edited: 2018-10-21 08:12:25 +0200 (CEST)

View all threads created 2018-10-19 08:13.