Re: [PERL] Sortering

[sslug@sslug (Lars G. T. Joergensen)]

On Tue, 30 Jan 2001 15:30:30 +0100, Jesper Bunch <sslug@sslug> wrote:
>Jeg har lavet et lille script jeg bruger til at tilføje brugere (virtual)
>til min mailserver (postfix). Disse brugere bliver bare appendet til virtual
>filen, men hvis jeg nu gerne ville have listen sorteret, er der så lige en
>smart måde at gøre det nemt på ?
>
>virtual fil :
>
>domain.dk domain.dk
>sslug@sslug user1
>sslug@sslug user2
>@domain.dk domain.dk
>
>domain2.dk domain2.dk
>sslug@sslug
>
>Sådan skulle en pæn sorteret virtual fil se ud :)
>Nogen forslag ?
>

perldoc -f sort

Noget i den her retning

open(FH,......
@nydata = soft &min_helt_Egen_sorterings_algoritme (<FH>);
close(FH)
open(FH,">....
for(@nydata)  {
print FH $_;
}
close(FH)

sub min_helt_egen_sorterings_algoritme { 
if($::a .....)  {
return -1;
}
if...
return 0;
if...
return 1;


};


>Hilsen Jesper
>
>


-- 
/Lars
Student at Department of Computer Science 
University of Copenhagen                  
http://www.diku.dk/students/larsj/     
When's the last time you used duct tape on a duct? -- Larry Wall