Re: [PERL] escape en sti i en one-liner

[Ole Tange <sslug@sslug>]

On Fri, 1 Nov 2002, Bjørn Bille Højte wrote:

> Jeg sidder med noget der fungerer, men som må kunne gøres smartere...
>
> I bash har jeg lavet følgende
>
> ..........
> for LINE in `cat sletstier`; do
>   perl -ni -e "print unless /`echo ${LINE} | sed 's#/#\\\/#g'`/" stier
>   perl -ni -e "print unless /`echo ${LINE} | sed 's#/#\\\/#g'`/" sletstier
> done

Jeg tror, du skal give os to korte eksempler på, hvad stier og sletstier
kunne indeholde.

Mit gæt på løsning er:

perl -ne 'BEGIN{chomp(@a=`cat /tmp/sletstier`);$"="|"} /@a/o or print' stier

eller

perl -e 'chomp(@a=`cat /tmp/sletstier`);$"="|"; print grep !/@a/o, <>' stier

$" er det, som bliver sat mellem elementerne i @a, når @a står som "@a"
eller /@a/. /o = compile-once.


/Ole
-- 
Registered Linux user #194. Get counted: http://counter.li.org
http://ole.tange.dk