Forum Webscript.Ru
Программирование => Perl => Тема начата: Yaroslav от 27 Августа 2003, 12:01:24
-
что то лыжи не едут.....
цель - находятся файлы с расширением (\'*.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";
-
perldoc -f sort
@articles = sort {uc($a) cmp uc($b)} @spisok;
-
плюс к этому
perldoc -f push
-
NeoNox:
@articles = sort {uc($a) cmp uc($b)} @spisok;
нефурычит. :(
-
Yaroslav
что print "@spisok"; выдает?
-
NeoNox:
4izitki:::4Topik:::Topik #с файла topik.tip
9izitki:::9anvia:::anvia #с файла anvia.rek
5izitki:::5KM Group:::KM Group #с файла kmgroup.rek
-
Yaroslav:
if ("$file[13]" ne \'\') { @spisok="@spisok $file[13]"; }
Поэтому @spisok будет всегда состоять из одного элемента.
if ($file[13] ne \'\') { push @spisok, $file[13] }
-
mike:
Yaroslav:
if ("$file[13]" ne \'\') { @spisok="@spisok $file[13]"; }
Поэтому @spisok будет всегда состоять из одного элемента.
if ($file[13] ne \'\') { push @spisok, $file[13] }
у меня в книжке такого нет, хотя нетрудно теперь догадатся что раньше я склеивал во едино, а теперь оно там будет частями, верно?
-
NeoNox:
mike:
Спасибо Киевляне заработало :)
-
Yaroslav
Кстати, $file[13] будет содержать 14-ю строку, а не 13-ю :)
-
mike:
Кстати, $file[13] будет содержать 14-ю строку, а не 13-ю
совсем меня с г... смешать хочешь? невыйдет :) я это знал уже давно :)
-
[moderator]
Тема закрыта.