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

Gast Andreas
 2014-09-23 13:25
#177489 #177489
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)

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