Perl rusevima gali susikurti koki tik nori :)

@sorted = sort { if ($a eq 'aardvark') { return 1; } elsif ($b eq 
'aardvark') { return -1; } else { return $a cmp $b; } } @words;

"Nerijus T" <news@upe.lt> wrote in message 
news:hgagrl$s84$1@trimpas.omnitel.net...
> Kaip sustatyti i eile savo funkcijos pagal kelis stulpelius pagalba.
>
> Nerijus
>
>
> __________ Information from ESET NOD32 Antivirus, version of virus 
> signature database 4691 (20091215) __________
>
> The message was checked by ESET NOD32 Antivirus.
>
> http://www.eset.com
>
>
>
> 



__________ Information from ESET NOD32 Antivirus, version of virus signature database 4691 (20091215) __________

The message was checked by ESET NOD32 Antivirus.

http://www.eset.com