что то лыжи не едут.....
цель - находятся файлы с расширением (\'*.tip *.diz *.rek\')
если строка 13 не пустая - загоняем в @spisok.
проблемма отсортировать все это.
while ( defined($filename = glob(\'*.tip *.diz *.rek\')) ) {
open (WORDSLIST, $filename);
@file=;
chomp ($file[13]);
if ("$file[13]" ne \'\') { @spisok="@spisok $file[13]"; }
else { next; }
}
#@spisok = sort @spisok; неработает
#@spisok = sort { $a <=> $b } @spisok; неработает
#@by_sym= sort {$a<=>$b} @spisok; неработает
#@by_num= sort {$a<=>$b} @spisok; неработает
#@spisok = sort $age <=> $age @spisok; неработает
print "@spisok";