Thread Perl einzeiler (Programme eines ganzen Ordners einlesen) (4 answers)
Opened by Andreas at 2014-09-23 12:34

GwenDragon
 2014-09-23 13:40
#177491 #177491
User since
2005-01-17
14760 Artikel
Admin1
[Homepage]
user image
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)

View full thread Perl einzeiler (Programme eines ganzen Ordners einlesen)