Wie kann man den Inhalt einer Variablen zippen? (Allgemeines zu Perl)

[thread]15164[/thread]

Wie kann man den Inhalt einer Variablen zippen?

Leser: 16

Articles: hide open all | hide show old branches

+7 replies
maxmeier12

2010-06-20 18:23

User since
2010-06-20
3 Artikel
BenutzerIn

Gibt es eine einfache Möglichkeit mit Perl und ggf. Archive::Zip, den Inhalt einer Variablen bestmöglich zu zippen, ohne dafür Dateien lesen oder schreiben zu müssen? Also etwas in der Art

$text = "dies ist ein Test";
$zippedtext = &Zip($text);

sub Zip {
my $zip = Archive::Zip->new();
# hier weiß ich nicht weiter
return ...
}

Danke.
Last edited: 2010-06-20 18:24:54 +0200 (CEST)
- +6 replies
- pq
  
  2010-06-20 18:26
  User since
  2003-08-04
  12209 Artikel
  Admin1
  in der doku von Archive::Zip steht:
  
  Code (perl): (dl )
  
  my $string_member = $zip->addString( 'This is a test', 'stringMember.txt' );
  
  hab ich aber selbst noch nie ausprobiert, musst du mal testen.
  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
  - +5 replies
  - pq
    
    2010-06-20 18:36
    
    User since
    2003-08-04
    12209 Artikel
    Admin1
    
    hier ist ein beispiel, wie man den string bekommt:
    http://cpansearch.perl.org/src/ADAMK/Archive-Zip-1...
    
    der gewünschte string ist $zipContents.
    es geht wohl nur über ein zwischen-filehandle.
    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
    - maxmeier12
      
      2010-06-20 20:33
      
      User since
      2010-06-20
      3 Artikel
      BenutzerIn
      
      Danke, das ging ja schnell, aber dazu muss ich mir wohl erst noch die IO-Module herunterladen und installieren.
      
      Eine einfache Art, letztlich nur die Compress-Funktion aus der zip-Library aufzurufen, wie dies beispielsweise mit C möglich ist, gibt es nicht?
      - +3 replies
      - pq
        
        2010-06-20 20:38
        
        User since
        2003-08-04
        12209 Artikel
        Admin1
        
        doch, das könnte sein. Compress::Raw::Zlib
        
        musst mal mit rumspielen. das ist ab 5.10 auch im core.
        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
        
        maxmeier12
        
        2010-06-20 22:06
        
        User since
        2010-06-20
        3 Artikel
        BenutzerIn
        
        Super, das war eine gute Idee. Meine Funktion konnte ich dort beinahe abschreiben:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13
        
        use Compress::Raw::Zlib; sub Zip { my ($d, $status) = new Compress::Raw::Zlib::Deflate( -Level => Z_BEST_COMPRESSION ); my $result; my $status = $d->deflate(shift, $result); die "deflation failed\n" unless $status == Z_OK; $status = $d->flush($result) ; die "deflation failed\n" unless $status == Z_OK; $result; }
        
        mod-edit pq: perl-tags hinzugefügt
        
        pq
        
        2010-06-20 22:09
        
        User since
        2003-08-04
        12209 Artikel
        Admin1
        
        ah, geht tatsächlich recht einfach. danke fürs posten.
        
        bitte mach in zukunft code- oder perl-tags um den code. dann werden die einrückungen auch dargestellt.
        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-06-20 18:23.