.rar mit Perl unkomprimiert verpacken? (Allgemeines zu Perl)

[thread]18136[/thread]

.rar mit Perl unkomprimiert verpacken?

Tags: perl5 Ähnliche Threads

Leser: 19

Articles: hide open all | hide show old branches

+12 replies
KarlaCluft

2013-02-11 17:30

User since
2012-12-11
50 Artikel
BenutzerIn

Hey!
Unter Windows gibt es ja die möglichkeit rar-Archive unkomprimiert zu packen!
Wollte mal fragen wie das mit Perl geht, welche Möglichkeiten es gibt (da es so wesentlich schneller geht).
LG Karla
- +2 replies
- GwenDragon
  
  2013-02-11 17:44
  
  User since
  2005-01-17
  14748 Artikel
  Admin1
  
  In RAR-Format sind die Dateien komprimiert. Wo kann Windows unkomprimierte RAR erzeugen? ich kenne das nicht.
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - KarlaCluft
    
    2013-02-11 20:25
    
    User since
    2012-12-11
    50 Artikel
    BenutzerIn
    
    Nicht ganz unkomprimiert aber wie Linuxer sagt den Grad der Komprimierung einstellen.
- +9 replies
- Linuxer
  
  2013-02-11 18:14
  
  User since
  2006-01-27
  3890 Artikel
  HausmeisterIn
  
  Naja, ich vermute, dass die entsprechenden Module auf die Kommandozeilen-Tools zurückgreifen.
  Diese bieten über die Optionen die Möglichkeit, den Kompressionsgrad festzulegen:
  
  man rar
  ...
  -m<0..5>
  Set compression level (0-store...3-default...5-best). By default
  rar uses -m3 method (Normal compression).
  ...
  
  Quelle: http://manpages.ubuntu.com/manpages/lucid/man1/rar...
  meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
  Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
  - +8 replies
  - KarlaCluft
    
    2013-02-11 20:24
    
    User since
    2012-12-11
    50 Artikel
    BenutzerIn
    
    Wo mit würde man so was am sinnvollsten machen?
    - +7 replies
    - Linuxer
      
      2013-02-11 21:51
      
      User since
      2006-01-27
      3890 Artikel
      HausmeisterIn
      
      Ich habe nur kurz einen Blick auf Archive::Rar geworfen; das scheint es so nicht zu unterstützen.
      
      Ich würde wahrscheinlich einen ähnlichen Wrapper verwenden, wie ich ihn Dir hier schon zum Entpacken aufgezeigt hatte.
      
      Also im Prinzip sowas:
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38
      
      # globale Definition der Kommando-Pfade my %cmd = ( rar => '/path/to/rar', ); # globale Definition von Optionen pro Kommando, die immer gelten sollen my %opts = ( rar => [ 'a', '-m0' ], ); # .... sub rar { my $archive = shift; my @files = @_; if ( !exists $cmd{rar} ) { die "No path to rar is defined in \%cmd\n"; } elsif ( not -x $cmd{rar} ) { die "$cmd{rar} is not executable\n"; } my @cmd = ( $cmd{rar}, # wenn globale Optionen definiert sind, nutze sie ( $opts{rar} ? @{$opts{rar}} : () ), $archive, @files ); return system(@cmd); } # ... rar( $archive, @files ) or die "rar failed for '$archive' : $!\n";
      
      meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
      Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
      - KarlaCluft
        
        2013-02-11 23:20
        
        User since
        2012-12-11
        50 Artikel
        BenutzerIn
        
        Danke!
        Das Script an sich läuft (etwas umgebaut). Nur leider ist das ganze nicht schneller, so wie ich es mir eigentlich erhofft hatte...
      - +5 replies
      - KarlaCluft
        
        2013-02-12 19:23
        
        User since
        2012-12-11
        50 Artikel
        BenutzerIn
        
        Habs jetzt
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
        
        use Archive::Rar::Passthrough; my $rar = Archive::Rar::Passthrough->new(); if (not $rar) { print "Could not find your 'rar' command'.\n"; } my $errorcode = $rar->run( command => 'a', switches => ['-m0'], archive => 'my.rar', filelist_files => [ 'test.txt' ], ); if ($errorcode) { print "There was an error running 'rar': " . $rar->explain_error($retval) . "\n"; my $output = $rar->get_stdout(); my $errors = $rar->get_stderr(); print "The 'rar' command said (if anything):\n" . $output . "\nAnd spammed on STDERR:\n" . $errors . "\n"; }
        
        so gemacht! Klappt super!
        Mir ist aber nicht ganz klar wie ich ein comment setze...
        
        Code (perl): (dl )
        
        command => 'a','cw [comment]' ,
        
        funktioniert so aber leider nicht! alles andere geht, setzt halt nur kein Comment!
        
        +4 replies
        
        Linuxer
        
        2013-02-12 21:01
        
        User since
        2006-01-27
        3890 Artikel
        HausmeisterIn
        
        Hi,
        
        abgeleitet vom Kommandozeilen-Tool rar/unrar:
        
        Code: (dl )
        
        1 2 3 4 5 6
        
        # 1. Archiv erstellen rar a -m0 archive.rar file1.txt file2.txt # 2. Kommentar ans Archiv hinzufuegen echo "mein Archiv Kommentar" | rar c archive.rar # 3. Kommentar kontrollieren rar cw archive.rar
        
        IMHO gibst Du auf der Kommandozeile jeweils nur ein Kommando an. 1x Archiv erstellen, 1x Kommentar hinzufügen.
        Der zu schreibende Kommentar wird anscheinend separat hinzugefügt und von STDIN gelesen.
        
        mögliche Perl-Umsetzung:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
        
        #! /usr/bin/env perl use strict; use warnings; use Archive::Rar::Passthrough; my $rar = Archive::Rar::Passthrough->new(); my $rc = $rar->run( 'command' => 'a', 'switches' => [ '-m0' ], archive => 'my.rar', files => [ glob("*.txt") ], ); # Fehlerbehandlung print "Please enter the archive comment now (<CTRL>+D ends comment):\n"; $rc = $rar->run( 'command' => 'c', archive => 'my.rar', ); # Fehlerbehandlung
        
        Damit fragt das Skript nach dem Kommentar.
        Alternativ kann das Skript auch via Pipe den Kommentar einlesen (dann ist der Kommentar zu ignorieren...)
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8
        
        $ perl t.pl Please enter the archive comment now (<CTRL>+D ends comment): bla ^D $ $ echo "lese von stdin" | perl t.pl Please enter the archive comment now (<CTRL>+D ends comment): $
        
        Die Kommentar-Eingabeaufforderung, die rar normalerweise selber bringt, wird von Archive::Rar::Passthrough abgefangen, sodass diese Meldung den User erstmal nicht erreicht; daher die eigene Aufforderung.
        
        Das Ganze geht möglicherweise noch schöner; daran mögen sich andere versuchen ;-)
        Last edited: 2013-02-12 21:03:30 +0100 (CET)
        meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
        Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
        
        +3 replies
        
        KarlaCluft
        
        2013-02-13 00:26
        
        User since
        2012-12-11
        50 Artikel
        BenutzerIn
        
        Dass der Comment extra hinzugefügt wird ist ein guter Hinweis! Danke!
        Aber es scheint SO nicht zu funktionieren...
        Mir ist aber auch nicht klar warum.
        
        habe es so versucht:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
        
        use Archive::Rar::Passthrough; my $rar = Archive::Rar::Passthrough->new(); if (not $rar) { print "Could not find your 'rar' command'.\n"; } $rar->run( command => 'a', switches => ['-m0'], archive => 'my.rar', filelist_files => [ 'test.txt' ], ); $rar->run( command => 'c', archive => 'my.rar', );
        
        Last edited: 2013-02-13 00:31:55 +0100 (CET)
        
        Linuxer
        
        2013-02-13 01:18
        
        User since
        2006-01-27
        3890 Artikel
        HausmeisterIn
        
        KarlaCluft
        Aber es scheint SO nicht zu funktionieren...
        
        Tja, und das heißt nun genau was? Das ist ja noch ungenauer als das klassische unspezifische "funktioniert nicht"; denn hier "scheint es" nur so...
        
        Das von mir gezeigte Skript hat bei mir anstandslos funktioniert. Die gewählten txt-Dateien waren im Archiv und auch der Archiv-Kommentar ist gesetzt worden.
        
        Was passiert bei Dir? Was erwartest Du? Was erhälst Du? Erscheinen Warnungen? Welche und wie lauten diese? Erscheinen gar Fehlermeldungen? Welche und wie lauten diese?
        
        Liefere doch bitte mal spezifischere Fehlerbeschreibungen, mit denen man was direkt anfangen kann. Ich kann Dein scheinendes "funktioniert nicht" nicht nachvollziehen... Und Dein Beispiel-Code funktioniert bei mir ebenfalls anstandslos!
        
        Vermutung:
        Wie ich bereits schrieb, schluckt das Modul die Ausgaben des rar-Kommandos.
        Daher siehst Du die Aufforderung, jetzt einen Kommentar einzugeben, nicht, und das Programm scheint zu hängen.
        Aber es wartet auf Deine Eingabe eines Kommentars.
        Der Kommentar MUSS mit einem "Newline" (also Enter-/Eingabe-Taste) und DANN mit <STRG+D> (also STRG und 'D' gleichzeitig drücken) beendet werden.
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9 10 11
        
        $ rar c my.rar Processing archive my.rar Reading comment from stdin here is my comment<ENTER> <CTRL+D> Adding comment to my.rar Done $ $ rar cw my.rar here is my comment $
        
        Code: (dl )
        
        1 2 3 4 5
        
        $ perl karla.pl hier ist mein kommentar $ rar cw my.rar hier ist mein kommentar $
        
        Und was funktioniert bei Dir jetzt nicht?
        
        Anmerkung: Ich bin auf einem Linux unterwegs; Möglicherweise ist die Tastenkombination zum Beenden der Kommentar-Eingabe eine andere auf anderen Systemen; evtl. <STRG+Z>?
        Last edited: 2013-02-13 01:27:45 +0100 (CET)
        meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
        Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
        
        thecoder2012
        
        2013-02-26 01:25
        
        User since
        2013-02-04
        64 Artikel
        BenutzerIn
        
        Wenn man es automatisiert mit dem Modul machen will, dann käm wohl nur der Switch -z zur Wahl. Ansonsten müsste man das Modul erweitern. Man mag dann comment.txt benötigen aber das könnte man mit Perl automatisiert erstellen und löschen.
        
        Code (perl): (dl )
        
        1 2 3 4 5
        
        $rar->run( command => 'c', archive => 'my.rar', switches => ['-zcomment.txt'], );

View all threads created 2013-02-11 17:30.