🚀 go-pugleaf

Czy jest jakies dobry, sprawdzony, najszybszy i w ogole jedynie sluszny
sposob sortowania plikow z polskimi literkami przy pomocy perla?
Konkretnie chodzi mi o sortowanie zwyklych plikow tekstowych.
Swojego czasu ktos zaproponowal mi taki skrypt:

#!/usr/bin/perl

while(<>)
 {
   chop;
   s/±/a~/g;  s/æ/c~/g;  s/ê/e~/g;  s/³/l~/g;  s/ñ/n~/g;  
   s/ó/o~/g;  s/¶/s~/g;  s/¼/z~/g;  s/¿/z~~/g;
   push(@slowa,$_);
 }

foreach( sort @slowa )
 {
   s/a~/±/g;  s/c~/æ/g;  s/e~/ê/g;  s/l~/³/g;  s/n~/ñ/g;  
   s/o~/ó/g;  s/s~/¶/g;  s/z~~/¿/g; s/z~/¼/g;  
   print "$_\n";


Czy mozna lepiej (szybciej)?

Pozdrawiam

	Emil Stepniewski