Re: [PERL] Kode optimering

[Anders Thøgersen <sslug@sslug>]

On Wed, Sep 03, 2003 at 12:31:27PM +0200, Christian Nielsen wrote:
> Hej!
> 
> Kan dette gøres bedre:
> 
> # Eventuel HTML fjernes
> $ParamTitel     =~ s/<[^>]*>//gs;
> $ParamText      =~ s/<[^>]*>//gs;
> $ParamLinkNavn  =~ s/<[^>]*>//gs;
> $ParamLinkAdr   =~ s/<[^>]*>//gs;
> 
> Efter at have skrevet den sammen linie 10 gange i træk bliver men jo
> betænkelig.

Måske:

foreach ($ParamTitel, $ParamText, $ParamLinkNavn, $ParamLinkAdr) {
  s/<[^>]*>//gs;
}

Anders

-- 
login: yes
password: I don't know, please tell me
password is incorrect
login: yes
password: incorrect