Newsgroup: it.comp.os.linux.sys
Titolo: [perl] aiuto su script

 fatto non succede nulla

 
Grazie mille, ottimo hint.
adesso Man un po'.
immagino che ci sia un flag per il ricorsivo e per la sovrascrizione :)
Ciao Davide


 essere uccisi, ho cercato in rete, e ho trovato solo un modulo di perl 
sed e' li' per quello.
sed 's/<!--.*-->//' nomefile.html > nomefile.html.new
Se e' ok lo rinomini poi.
man sed per maggiori info
Davide
-- 
Anyway the :// part is an 'emoticon' representing a man with a strip 
of sticky tape across his mouth. --R. Douglas

 immagino che ci sia un flag per il ricorsivo e per la sovrascrizione :)
No, e' per il ricorsivo esiste find. E non esiste sovrascrizione.
Davide
-- 
AFAIR, being insane is usually a pre-requisite for becoming a
sysadmin. In the few cases where it's not pre-requisite, it's
certainly going to be a bonus.  --SIggi the Underpaid

 ma se non si può sovrascrivere come si agisce?
Qualcosa tipo
find . -type f -name "*.html" -exec sed 's....' {} > {}.new ; mv {}.new {} \;
Oppure:
for file in `find . -type f -name "*.html"` ; do
	sed ..... $file > $file.new
	mv $file.new $file
done
Davide
-- 
The box said "Requires Windows 95 or better."  I can't understand    
why it won't work on my Linux computer.

 
me ne sono avveduto, 
per questo ho provato  find . --exec sed 's/<!--.*-->//'   {} \;  
ma ha lamentato che non gli piace.
ma se non si può sovrascrivere come si agisce?
si fanno delle copie e poi si modifica l'estensione?


 immagino che ci sia un flag per il ricorsivo e per la sovrascrizione :)
  oppure uno script del tipo 
#!/bin/bash
#
for filename in *         
    do
  echo "$filename" | grep " "         
   if [ -x $filename ];                 
  then
  fname=$filename         
 n=`echo $fname | sed 's/<!--.*-->//' $fname.html > fname.html.new`
 echo "$n"
     fi
done
exit 0
Non prenderlo per funzionante!
Saluti
Agolf
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

grazie mille,
di cuore
soprattutto per la pazienza
Sat_


 Se e' ok lo rinomini poi.
Giusto perche` "perl" e` nel subject:
perl -pi.orig -e 's/<!--.*-->//' Dir/*
Anche se bisogna vedere con la greedy come si comporta.
Probabilmente, meglio cosi`:
perl -pi.orig -e 's/<!--(.*?)-->//' Dir/*
-- 
                          Maurizio - Tannoiser - Lemmo
                 Founder Member of ERLUG 
http://erlug.linux.it
-------------------------------------------------------------------------------
echo '16i[q]sa[ln0=aln100%Pln100/snlbx]sb20293A2058554E494Csnlbxq'|dc

 No, e' per il ricorsivo esiste find. E non esiste sovrascrizione.
Io direi che non esiste proprio la parola "sovrascrizione" :)
sovrascrizione ... ma siete pazzi.
--
Massimiliano.

 sovrascrizione ... ma siete pazzi.
ROTFL. Max, mi hai fatto ridere.
-- 
                          Maurizio - Tannoiser - Lemmo
                 Founder Member of ERLUG 
http://erlug.linux.it
-------------------------------------------------------------------------------
Vote Cthulhu. Why choose the lesser evil?

il bello di non essere nati kernel č che essendo umani si capiscono
"comandi" anche sbagliati.
in un momento di concitazione (e credimi lo era) un errore cosě puň
succedere...
...pazzi mi sembra un po' eccessivo!


 
va bene, scusa ... ma non intendevo dire che tu credi di essere napoleone :)
--
Massimiliano.

 :)
certo certo :)
ciao Massimiliano


 qualcuno sa darmi una piccola mano?
Eviterei l'uso delle espressioni regolari: sono seducenti e
compatte, ma sfuggono rapidamente di mano, e risulta arduo scrivere
programmi veramente robusti ricorrendo ad esse (preciso: risulta
arduo se i programmi devono manipolare HTML o XML).
Meglio basarsi su un modulo che implementi un vero e proprio 
parser. Ad esempio HTML::TokeParser::Simple, che deriva da
HTML::Parser. Nella documentazione c'e` proprio l'esempio che
serve a te.
http://search.cpan.org/~ovid/HTML-TokeParser-Simple-3.13/lib/HTML/TokePa
rser/Simple.pm#Stripping_Comments
ciao,
S.
(Ho impostato il follow-up su it.comp.lang.perl. Ho fatto come 
si deve? Come dovrei comportarmi in questi casi?)
-- 
Stefano Rodighiero      |  
http://larsen.perlmonk.org
mailto:
lar...@perl.it
   |  
http://www.perl.it