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}
perl -ni -e 'print unless /^\s*(\#.*)?$/;'
vymaze prazdne radky, radky obsahujici prazdne znaky, radky uvozene # v
prvnim sloupci nebo hned po prazdnych znacich; jine druhy komentaru si
musite pridat sam.
Spis nez studium perlu to chce studium regularnich vyrazu, nejlepsi serial o
RE vysel na rootu.

-- 

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