1. Este site usa cookies. Ao continuar a usar este site está a concordar com o nosso uso de cookies. Saber Mais.

remover...

Discussão em 'Programação' iniciada por joaorikard, 8 de Setembro de 2008. (Respostas: 1; Visualizações: 400)

  1. joaorikard

    joaorikard [email protected] Member

    remover...
     
    Última edição: 4 de Fevereiro de 2009
  2. Kayvlim

    Kayvlim Undefined Moderator
    Staff Member

    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
     

Partilhar esta Página