remover...

Perl?

Acho que Perl não tem nenhum equivalente ao str_replace, pelo que aquilo que se me ocorre é o uso de regular expressions.
Código:
$x = "The quick brown fox jumps over the lazy dog";
$x =~ s/quick/slow/gi;
print $x;

Quick tip: s/isto/aquilo/gi: s = substituir; g = global (substitui todas as ocorrências - não só a primeira); i = case insensitive (não importam as maiúsculas e minúsculas).
Substitui o que está em "isto" pelo que está em "aquilo".

Podes até fazer
Código:
$x = "tEh QuIck BrOwn FoX jUmpS oVeR teH lAzY dOg";
$x =~ s/quick/slow/gi;
$x =~ s/teh/the/gi;
$x =~ s/fox/cat/gi;
$x =~ s/brown/red/gi;
print $x;

Pode haver alguma forma melhor que eu desconheça, mas para já, deve dar para desenrascar :P
 
Back
Topo