vystup: pouze text odpovidajici regularnimu vyrazu

[Ivo Panacek]

> > To v zadani nebylo! :-) Ale nevadi, mala uprava a je to:
> > 
> Asi jsem to nerekl vyslovne, ale myslim, ze to ze zadani
> vyplyvalo.. to je jedno, diky za pomoc, zkusim, jak to pujde
> s temi mailovymi adresami :-)
> Jo - pokud bych chtel ten regul. vyraz jako parametr pro perl
> (pripadne promennou prostredi), jak na to ? Samozrejme
> jsem zkousel
> REG=vyraz
> ale perl '....($REG)....' ani perl '... $ENV{'REG'}' (to jsem videl
> nekde na netu) samozrejme nefunguje :-)
> 
> Diky,
> 		Michal
> 
> PS: ze bych se na stara kolena naucil Perl ? :-) Zatim jsem vystacil
>      s ksh, sed, grep, awk :-)

Taky jsem si vsemi vyjmenovanymi (VELMI) prosel.
Naucte se perl, bude se vam libit!
Takto:

[ivop na roger ivop]$ export REG='[aA]\d'
[ivop na roger ivop]$ echo $REG
[aA]\d
[ivop na roger ivop]$ echo "sasdasda1asqwpoa2asrra3" | perl -n -e
'while(s/($ENV{REG})//){ print "$1\n";}'
a1
a2
a3

ivo