Perl einzeiler (Programme eines ganzen Ordners einlesen) (gelöst) (Allgemeines zu Perl)

[thread]19305[/thread]

Perl einzeiler (Programme eines ganzen Ordners einlesen) [gelöst]

Leser: 12

Articles: hide open all | hide show old branches

+5 replies
Gast Andreas

2014-09-23 12:34

Hallo,

ich habe hier einen Perl einzeiler der einzelne Programmer konvertiert
ist es möglich alle Programme eines ganzen Ordners auf einmal zu übersetzen?
(habe leider keine ahnung von Perl)

perl -e "binmode(STDIN); read(STDIN,$cs,999999); @c = unpack('C*', $cs); $k=0; for(0..$#c) { $d = $c[$_] ^ $k; $k++; $k=0 if($d == 0x0A || $k > 0xFF); printf('%c',$d); } " < test.Z > test.F

Danke
- +4 replies
- Gast Basher
  
  2014-09-23 12:43
  
  for file in * ; do [ -f "$file" ] && perl -e "binmode(STDIN); read(STDIN,$cs,999999); @c = unpack('C*', $cs); $k=0; for(0..$#c) { $d = $c[$_] ^ $k; $k++; $k=0 if($d == 0x0A || $k > 0xFF); printf('%c',$d); } " < $file.Z > $file.F ; done
  Last edited: 2014-09-23 12:47:07 +0200 (CEST)
  - +3 replies
  - Gast Andreas
    
    2014-09-23 13:25
    
    Guest Basher
    for file in * ; do [ -f "$file" ] && perl -e "binmode(STDIN); read(STDIN,$cs,999999); @c = unpack('C*', $cs); $k=0; for(0..$#c) { $d = $c[$_] ^ $k; $k++; $k=0 if($d == 0x0A || $k > 0xFF); printf('%c',$d); } " < $file.Z > $file.F ; done
    
    bekomme leider in der Windows Komandozeile den Fehler
    
    Quote
    C:\Users\bacha\Desktop\c> for file in * ; do [ -f "$file" ] &&
    nmode(STDIN); read(STDIN,$cs,999999); @c = unpack('C*', $cs); $k=0;
    { $d = $c[$_] ^ $k; $k++; $k=0 if($d == 0x0A || $k > 0xFF); printf('
    < $file.Z > $file.F ; done
    "file" kann syntaktisch an dieser Stelle nicht verarbeitet werden.
    
    Last edited: 2014-09-23 13:28:39 +0200 (CEST)
    - +2 replies
    - GwenDragon
      
      2014-09-23 13:40
      
      User since
      2005-01-17
      14748 Artikel
      Admin1
      
      Da hättest du früher mal was gesagt, dass es das grauenhafte Windows ist. ;)
      Es hat eine Eingabeaufforderung (Shell), die fast unbrauchbar ist.
      
      FOR %F IN (*.*) DO perl -e "binmode(STDIN); read(STDIN,$cs,999999); @c = unpack('C*', $cs); $k=0; for(0..$#c) { $d = $c[$_] ^ $k; $k++; $k=0 if($d == 0x0A || $k > 0xFF); printf('%c',$d); } " < %~nF.Z > %~nF.F
      Last edited: 2014-09-23 13:41:38 +0200 (CEST)
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - Gast Andreas
        
        2014-09-23 13:57
        
        Danke hat mir sehr geholfen
        Last edited: 2014-09-23 13:58:30 +0200 (CEST)

View all threads created 2014-09-23 12:34.