Я в Perl новичок... В принципе я вообще в программировании новичок... Прошу помощи.

Есть лог-файл. В нем всего одна строка, которая выглядит так:

2006-11-22      10:29:00        0       6

Пишу скрипт для разбивки этой строки:

#!/usr/bin/perl

open (F, "/var/log/meridian/meridian.log |");

while (<F>) {

if (/(.)\t(.)\t(.)\t(.)/) {

$date = $1;
$time = $2;
$first_pri = $3;
$second_pri = $4;

close (F);

}

print "$first_pri\n$second_pri\n$date\n$time\n";

exit;

}

Выводит:

2006-11-22: not found

И как я только это regexp не писал (и с "\s+" вместо "\t", и описывал всё досконально, например - ([0-9]+-+[0-9]+-+[0-9]) и т.д.) , всё равно выводит одно и тоже...

Подскажите, где грабли... Или это я...  

Во-первых, чтение файла. Если очень хочется вариант с трубой (|), то надо что-то вроде
но лучше просто  

amg, огромное спасибо! Ваш вариант работает без проблем. Вот только я так и не понял, почему не работает мой...без "split".

 В регулярных выражениях точка - это один символ. Твою регулярку (если разделители - табуляторы) надо написать так: 
Или так 
Или со сплитом 

Это сообщение отредактировал(а) amg - 22.11.2006, 13:07

amg, ещё раз огромное спасибо за разъяснения. Теперь ещё напишу скрипт для забирания этого файла по scp и всё будет ОК.