|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : vilfred 2:5020/400 07 Mar 2001 20:11:47
To : All
Subject : просто устал
--------------------------------------------------------------------------------
не подскажете?
листинг директории
1.1995.txt
1.1996.txt
1.1997.txt
1.1998.txt
1.1999.txt
2.1996.txt
2.1997.txt
2.1998.txt
2.1999.txt
3.1996.txt
3.1997.txt
3.1998.txt
3.1999.txt
4.1995.txt
5.1995.txt
и так далее до 12 месяцев, мне нужно плучить массивы, в которых содержатся
номера за каждый год.
foreach $lala(grep{!seen{$_}++} split /\n/. `ls`){
if($lala=~m/(\d+)\.(\d+)\.txt/ig){ $year=$2;
@nado=map{$_->[1]}
map {[/\.$year/], $_}
@list;
}
}
что делаю, беру исходный массив с листингом директории, ищу первым
мапом(смотрим снизу в цикле), заношу результат во временный масив, вторым
мапом
заношу из временного массива в массив @nado, этот искомый массив содержит
строку с годом, и присутствующими в нем номерами(какие есть).
А что хочется, это список номеров журнала за пять лет, нужно вывести в
календарь
типа:
ГОД Hомер
1995 1
1996 1 2 3 4 5 6 7 8 9 10 11 12
1997 1 2 3 4 5 6 7 8 9 10 11 12
1998 1 2 3 4 5 6 7 8 9 10 11 12
1999 1 2 3 4 5 6 7 8 9 10 11 12
2000 1 2 3 4 5 6 7 8 9 10
1995 1 элементы первого массива...
Спасибо если подскажете, как сделать.
--
Отправлено через сервер Talk.Ru - http://www.talk.ru
--- ifmail v.2.15dev5
* Origin: Talk.ru (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
