Matt Dunford wrote:
Una sfida! Ma si puo' farlo con due linee di perl:
:-)
$ cat prova.sh
#!/bin/bash echo ciao
$ cat prova.pl $str_re = qr(\"(?:[^\\\"]*(?:\\.[^\\\"]*)*)\" | \'(?:[^\\\']*(?:\\.[^\\\']*)*)\' )x; s/^((?:[^'"]+|$str_re)*)#.*$/$1/; $ perl -p prova.pl prova.sh
echo ciao Ciao Davide -- Dizionari: http://linguistico.sourceforge.net/wiki Conoscere il TC: http://www.no1984.org Strumenti per l'ufficio: http://it.openoffice.org Sistema operativo: http://www.it.debian.org Browser: http://www.mozilla.org/products/firefox Client di posta: http://www.mozilla.org/products/thunderbird GNU/Linux User: 302090: http://counter.li.org -- Non autorizzo la memorizzazione del mio indirizzo di posta a chi usa outlook: non voglio essere invaso da spam