Re: [PERL] Tekst match vs. søgning i array

[Ole Tange <sslug@sslug>]

On Mon, 19 Nov 2001, Michael Schmidt wrote:

> Hvad er hurtigst; tekst match eller søgning i array. Jeg benytter pt.
> at lave et stort ord array ud af en ASCII-fil ved at fjerne linieskift
> og splitte på whitespace.
> -Men jeg syntes det går lige lovligt langsomt hvis filen bliver mere end 30-40 kb stor.

Det kommer meget an på, hvad du vil.

Hvis du f.eks. skal lave en tabel til "oversættelse":

the => den
quick => hurtige
fox => ræv
jumps => springer
over => over
lazy => doven
dog => hund

så er associative (hash) arrays din ven:

%trans = (
"the" => "den",
"quick" => "hurtige",
"fox" => "ræv",
"jumps" => "springer",
"over" => "over",
"lazy" => "doven",
"dog" => "hund" );

print map { $trans{$_}," " } ("the","quick","dog");

Eller hvad med at få en sorteret liste af alle ordene i en fil:

perl -ne '@a{(split)}=1; END {print map {$_,"\n"} sort keys %a}' fil


/Ole
-- 
"Kan man virkeligt kun stemme SF, hvis man vil stemme for fri software og
 åbne standarder og imod softwarepatenter?"         -- Ole Tange
"Kristeligt Folkeparti er nu også en mulighed."     -- Jacob Sparre-Andersen