Dotaz: Perl RE prirazeni vysledku do promenne

[Terka]

rada bych do b dala obsah prom v kterem jsem provedla nahrady
$prom =     "a b a";
v $b ma byt "X b X" aniz bych $prom zmenila

reseni:

$perl -we ' $prom="a b a"; $b=$prom; $b=~s/a/X/g; printf "$prom\n";printf "$b\n";' 
a b a
X b X
$

toto ovsem vyhodi pocet nahrazeni
$perl -we ' $prom="a b a"; $b= ($prom=~s/a/X/g); printf "$prom\n";printf "$b\n";'
X b X
2        

slo by priklad 1 zapsat nejak obdobne jako 2
tj. tak abych nemusela nejprve delat kopii $prom ($b=$prom)

diky T.

Odpovědi

[happy barney]

Iný pohľad na vec, s inými obmedzeniami: $b = join 'X', split /a/, $prom;

[Terka]

pomoci poli..
holt mi to 
$perl -we ' $prom="a b a"; ($b=$prom)=~s/a/X/g; printf "$prom\n";printf "$b\n";'   
musi stacit
diky