Jak nahradit pouziti grep-u perl-em

[Zdenek Pytela]

Pavel Lisy píše:
> Nemohu nejak prijit na to jak prepsat nasledujici (mazani prazdnych a
> komentarovych radku):
> 
> grep -v '"^$\|^[        ]*#.*\|\`\|\$\\\("' ${CFGFILE} > ${TMPFILE1}
> 
> na
> 
> perl -pi -e 'neco' ${CFGFILE}
> 
> Aby to primo upravilo soubor ${CFGFILE} stejnym zpusobem jako grep (tam
> se musim jeste potom mazat s tmp soubory).
	Pro začátek něco jako
perl -ni -e 'print unless /^\s+\#?/;'
Mně ten váš výraz přišel nečitelný :-).

-- 

--Zdeněk Pytela, <letty na mrakoplas.phil.muni.cz>