sortere alfabetisk

[Gilbert]

open(FILE, "<$path_to_active_users") ||

&debug("$msg_debug6 $!");

@clines = <FILE>;

foreach $cline (@clines){

 

($show_user,$show_remote_host,$time_on,$color)=split(/|/, $cline);

($show_user,$blah) = &check_badwords($show_user,"blah");

$date = &get_date($time_on,$time_format);

chomp($color);

$color =~ s/s+$//g;

$users_online .= "<tr><td><font color="#$color"><li> $show_user</font></td></tr>n";

$found_users = $found_users + 1;

}

close(FILE);

 

er det mulig å få outputten ($users_online) sortert alfabetisk etter $show_user?

[Neo]

Da må du nok lage en hash med $show_user som nøkkel og $users_online som verdi. Som f.eks dette:

open(FILE, "<$path_to_active_users") || 

&debug("$msg_debug6 $!"); 

@clines = <FILE>; 

foreach $cline (@clines){ 



($show_user,$show_remote_host,$time_on,$color)=split(/|/, $cline); 

($show_user,$blah) = &check_badwords($show_user,"blah"); 

$date = &get_date($time_on,$time_format); 

chomp($color); 

$color =~ s/s+$//g; 

$users_online .= "<tr><td><font color="#$color"><li> $show_user</font></td></tr>n"; 

$hash{$show_user} = $users_online; #lagt til denne

$found_users = $found_users + 1; 

} 

close(FILE); 



foreach $temp (sort keys %hash) #skriver ut alfabetisk

{

   print "$hash{$temp}n";

}

 

Er det noe slikt du tenkte på?

(Har ikke testet koden, så det kan hende det er en liten bug et eller annet sted)

[Torbjørn]

Her ligger $show_user først på linja så...

 

@clines = sort @clines;

 

...burde holde.

 

eventuelt...

 

@clines = sort { lc $a <=> lc $b }; @clines

 

...hvis den skiller store og små bokstaver

[malmklang2]

($show_user,$blah) = &check_badwords($show_user,"blah");

Er det ikke noe galt med den linjen? Om ikke, kan jeg få se resten av koden, da spesielt sub'n check_badwords ?

[Torbjørn]

Den linja burde være riktig den.

 

syntaxmessig hvertfall

[malmklang2]

Hoi, fint det ikke var helt dødt i perlforumet likevel

Hm, men den siste biten: &check_badwords($show_user,"blah"), spesielt , "blah".... hva gjør denne delen av koden, forutenom at den henter opp sub'n check_badwords.. burde det ikke stå $blah der i slutten, slik det står $blah i begynnelsen?

[Torbjørn]

nei, han kaller opp en funksjon som tar inn to argumenter, i dette tilfellet en variabel og en tekststreng, og som spytter ut to andre variable, som ha så lagrer i to variabelnavn...

[Torbjørn]

Og det er *veldig* bra at det er liv her på perl forumet!!!

[malmklang2]

Hm, jeg forstår ikke nytten/logikken i den setningen der, men det får så være

[Torbjørn]

Tror ikke nytten eller bruken av funksjonen har noe å si med spørsmålet hans, er nok bare for å gjøre koden hans mer oversiktlig at han har fjernet en del slik at selve problemet blir lettere å illustrere.

 

Men ellers forstår jeg hva du mener