E` l'equivalente di killall PROC x openbsd visto che non c'e` si imposta la variabile PROC=nomeprocesso et voila`:

PROC=sleep ; for i in `find /proc -type d` ; do result=`cat $i/status 2> /dev/null` ; found=`echo $result | awk '{ print $1 }'` ; test $found = $PROC 2> /dev/null && echo $result | kill -$SIG `awk '{ print $2 }'` ; done

Lorenzo Martignoni

Con il seguente comando si estrae l'immagine di un cd audio e si
ottengono 2 files: data.bin contenente i dati grezzi e toc contenente le
informazioni sullo spiazzamento e sulla durata delle singole tracce:

gianz@guybrush:cd-images$ cdrecord read-cd toc
...
gianz@guybrush:cd-images$ ls -l
total 476695
-rw------- 1 gianz users 486224256 Sep 1 23:25 data.bin
-rw------- 1 gianz users 1263 Sep 1 23:25 toc
la rigona di comando é questa:

gianz@guybrush:cd-images$ for i in `seq 1 \`grep -c TRACK toc\`` ; do dd if=data.bin skip=`grep -A 5 "Track $i"$ toc | grep data.bin | awk '{ print( $3); }' | awk -F : '{ print(int((($1*6000+$2*100+$3)*1764)/1024)); }'` count=`grep -A 5 "Track $i"$ toc | grep data.bin | awk '{ print( $4); }' | awk -F : '{ print(int((($1*6000+$2*100+$3)*1764)/1024)); }'` bs=1024 | sox -t .cdr - -t wav - | bladeenc STDIN track$i.mp3 ; done


dopo un po' di tempo questo é ció che ottengo:

Pipe che restituisce caratteri maiuscoli da minuscoli


echo ciao |perl -e 'while (<>) { print uc }'


Muovi tutti i file presenti in una dir da maiuscoli a minuscoli o viceversa ..

for i in `ls` ; do mv $i `echo $i |perl -e 'while(<>) { print lc ;}'` ; done

Muovi tutti i file presenti in una dir da maiuscoli a minuscoli o viceversaanche se contengono degli spazi (Thanks Nando) ..

for i in * ; do mv "$i" "`echo $i | perl -e 'while(<>) { print lc ;}'`" ; done


Motore di ricerca per piccoli alberi html ;-)


grep -ir 'pattern' path_dove_cercare/*html|awk --field-separator=":" {'print $1;'}|perl-e '$old=""; while() { if ($_ ne $old) {print "$_"} $old=$_;}'


Legge tutti i files html contenuti in una directory [non scende
ricursivamente nelle sottodirectory] eliminandone i tag e li concatena in un
unico file ASCII conservando i commenti HTML.


cat *.htm |perl -e {'while () { s/<.*>//s; print }'} > output_text_file


Idem come sopra ma ricursivo ;-)


find . -iname "*.htm*" |perl -e {'while () { s/<.*>//s; print }'} > output_text_file