|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Saigo 2:5020/400 04 Jul 2001 15:27:16
To : All
Subject : сложная сортировка
--------------------------------------------------------------------------------
добрый день.
помогите, пожалуйста, решить следующую проблему:
open(NEWS_TXT_FILE,"< news.txt") or die "can't find news.txt";
while (<NEWS_TXT_FILE>)
{
chomp;
($id,$data,$author,$text)=split(/:::/,$_);
$info{$id}=$data.":::".$author.":::".$text;
}
close(NEWS_TXT_FILE);
foreach $id (keys %info)
{
($data,$author,$text)=split(/:::/,$info{$id});
print "id=$id data=$data author=$author text=$text \n";
}
мне нужно в разных случаях выводить строки отсортированными как по ключу, так и
по дате.
как вывести строки отсортированными по значению $data ?
или может быть по-другому хранить данные.
заранее спасибо за помощь.
Евгения
--- ifmail v.2.15dev5
* Origin: Peterlink News System (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
