[Perl] Vervang bepaalde tekst

[Dragon]

Ok ik zoek dus een manier om zo effectief mogelijk dingen te zoeken in strings en dat te vervangen:
Hier een matige

code:

      foreach (@filereq)
      {
        s/%status%/$statusword/g;
        s/%username%/$username/g;
        s/%ip%/$ENV{'REMOTE_ADDR'}/g;
        s/%email%/$emailread/g;
        s/%country%/$countryread/g;
      }

@filereq is in dit geval een array met een HTML bestand erin.

en hoe kan ik het doen als ik in een $string iets wil vervangen?

[jvhaarst]

is translate niet handiger ?

[Morrar]

Zo vervang je dingen in strings:

$string ~= s/bla/blaat/g;

Zoek anders een op Perl en Regular Expressions

[Dragon]

aah ik was dus het ~ vergeten thnx. Aleen wel een 500 nu. Vreemd was een probleem met wordwrapping... het werkt nu (het is =~ BTW niet ~= )

[ Voor 69% gewijzigd door Dragon op 22-04-2003 21:26 ]

[Morrar]

Ja sorry, typo van mij. Het is inderdaad =~