Thread Perl einzeiler (Programme eines ganzen Ordners einlesen)
(4 answers)
Opened by Andreas at 2014-09-23 12:34
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) |