perl

up & lower case

Submitted by fabio on Wed, 2006-01-04 16:58.

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

little perl search engine

Submitted by fabio on Wed, 2006-01-04 16:57.

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=$_;}'

html strip tags

Submitted by fabio on Wed, 2006-01-04 16:54.

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