Uзверь, а не скромный вопрос можно? Это задачка откуда? 

Вот номер абонента 0 A9710189175023971 начиная с восьмерки
А вот это внутренний номер абонента (внутри организации)  5104 
И число с длительностью 03/12 13:06:52 00:00:18 
А что насчет пробелов то их число значения не имеет. лог приведен в своем натуральном виде.
Пока вот думаю что да как и куда... 

Добавлено через 1 минуту и 20 секунд
Задачка с места работы...познавательно развивающая  

Как я понимаю мне нужно организовать чтение из лог файла по заданным параметрам выбора элементов... которые должны выводиться на экран?

Для начала попробуйте добавить что-нибудь в такой коротенький скрипт:
Вызывать скрипт нужно с log-файлом в качестве аргумента

О-o спасибо!!! Щас буду  пробывть запускать  

Привет amg а можно если тебя не затруднит немного пояснить вот эту строчку из програмки
 $hash{$1}++; Ее смысл
  
Насколько я понял $sash это переменная. Два плюса -приращение на 1 (инкремент) . А вот про фигурные скобки и их содержимое не очень понял.

И если можно вот в этой  стоке foreach (sort {$a<=>$b} keys %hash) такой кусок с переменными  
{$a<=>$b} ,какой смысл несет в себе такая запись для чего они служат? В описалове узнал только о временной переменной $i инициализирующаяся нулем которая создается при старте фора.

Это сообщение отредактировал(а) Uзверь - 2.10.2009, 08:12

$hash{ключ} -

$1 - из регулярного выражения, там где (\d+)

++ записывает дальше

можно посмотреть что в хэше, сделать

$1 -- в ней номер телефона из предыдущего удачно сработавшего регулярного выражения. Этот номер будет ключом хэша %hash
Коеструкция $hash{$1}++; создает элемент хэша с данным ключом, если этого элемента не было и затем инкрементирует его значение (undef+1=1). Если элемент хэша с данным ключом уже есть, то его значение просто инкрементируется. 
Таким образом, получаем хэш, в котором ключи -- это номера телефонов (уникальные, в хэше иных быть не может по определению), а значения -- сколько раз этот номер телефона встречается.

Я понимаю, что приведенный мной код -- это не то, что Вам нужно, но в качестве затравки послужить может. Далее, очевидно, нужно в значения хэша помещать не количество звонков, а, например, анонимный массив или хэш с нужной информацией. Или, возможно, с самого начала делать хэш не по номерам телефонов, а по ID абонентов, если, например, сортировка по ID более важна. Готов и здесь помочь (понимаю, что окунуться сразу в структуры данных перла -- это можно и утонуть), но для этого Вы должны сказать, как должен выглядеть вывод предполагаемого скрипта (даже не просто сказать а сочинить его, например, для того куска лога, который приводили выше, точно в том виде, в котором скрипт его выдал бы).

amg Очень благодарен за подробные обьяснения!  . Вывод должен быть примерно таким. На экран должна выдаваться информация:  номер сотового телефона A9710189175023971 на который звонил абонентизнутри, уникальный идентификатор абонента (внутренний номер как в логе 5104 ) а также длительность вызова с датой как в логе 03/12 13:04:12 00:00:30

Стараюсь вразуметь что-нибудь в главе "Регулярных выражений"перл актив  

Т.е. посто напечатать подходящие строки лога, убрав из них лишнее и переставив отдельные куски, без какой-либо статистики и сортировки? Тогда совсем просто, ни хэши, ни многомерные структуры данных не нужны:

Ничего себе програмка!!!Щас буду осваивать со скрипом  а насчет вывода строки на экран то выводить можно всю строчку с телефоном целиком.Просто судь программы в том чтобы можно было прописать в скрипт лог и открывая его был выдан список тех кто звонил на сотовые телы.Просто список.Столбцом.А если совсем чтобы круто то чтобы скрипт анализировал временные интервалы длительности звонков и выдавал в столбец только строки тех абонентов которые его привысили  

Тогда и скрипт то не нужен! Достаточно набрать в командной строке и исполнить команду 
perl -ne "print if /^N.+A\d+\s*$/" LOG.txt

Задай $limit где-нибудь в начале и добавь пару строк перед printf (который в цикле):
  my ($h,$m,$s) = split /:/, $duration;
  next if $h*3600+$m*60+$s < $limit;

Uзверь, 

!  JackYF

Модератор: Пожалуйста, один топик - один вопрос.

.