и опять sort

[Yaroslav]

что то лыжи не едут.....
цель - находятся файлы с расширением (\'*.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";

[NeoNox]

perldoc -f sort
@articles = sort {uc($a) cmp uc($b)} @spisok;

[mike]

плюс к этому

perldoc -f push

[Yaroslav]

NeoNox:
@articles = sort {uc($a) cmp uc($b)} @spisok;

нефурычит.

[NeoNox]

Yaroslav
что print "@spisok"; выдает?

[Yaroslav]

NeoNox:
4izitki:::4Topik:::Topik                            #с файла topik.tip
9izitki:::9anvia:::anvia                              #с файла anvia.rek
5izitki:::5KM Group:::KM Group                 #с файла kmgroup.rek

[mike]

Yaroslav:
if ("$file[13]" ne \'\') { @spisok="@spisok $file[13]"; }

Поэтому @spisok будет всегда состоять из одного элемента.

if ($file[13] ne \'\') { push @spisok, $file[13] }

[Yaroslav]

mike:
Yaroslav:
if ("$file[13]" ne \'\') { @spisok="@spisok $file[13]"; }

Поэтому @spisok будет всегда состоять из одного элемента.

if ($file[13] ne \'\') { push @spisok, $file[13] }

у меня в книжке такого нет, хотя нетрудно теперь догадатся что раньше я склеивал во едино, а теперь оно там будет частями, верно?

[Yaroslav]

NeoNox:
mike:
Спасибо Киевляне заработало

[mike]

Yaroslav
Кстати, $file[13] будет содержать 14-ю строку, а не 13-ю

[Yaroslav]

mike:
Кстати, $file[13] будет содержать 14-ю строку, а не 13-ю

совсем меня с г... смешать хочешь? невыйдет я это знал уже давно

[NeoNox]

[moderator]
Тема закрыта.