Архив форумов ЦИТФорума

[omar]

Добрый день!
Подскажите может кто сталкивался с таким ...
Есть файлик в котором хранится время формата Oct 26 08:09:08 и таких строчек много. Как из первой даты вычесть вторую.

Такое нуно сделать на Перл-е

[pegas]

[omar]

Всем здрасть!
Он такой
Oct 26 08:09:08 IP PORT IN
Oct 26 08:09:09 IP PORT IN
Oct 26 08:09:10 IP PORT OUT

Примерно выглядит так!

[Ages]

Так все таки, что и от чего нужно отнять. Пронумеруйте в приведенном выше примере строчки и нормально опишите что-то вроде: время (дату) из строчки номер ..... нудно отнять время (дату) из строчки ......
(это я так понимаю попытка сделать учет трафика.......?)

[pegas]

Вот пример скрипта на перл (В данном случае идёт вычитание даты т е в твоём случае скрипт выдаст нули)
#! /usr/bin/perl

#Скрипт будет работать если элементы в строке файла разделены строго одним пробелом если больше одного пробела
# нужно играться с номером массивов
open ( FILE2, "< путь к файлу например /var/log/dfgdfgdfg" ) or die ( "Unable to open file: $!\n" );
#Считаем файл в массив
my @data = <FILE2> ;
close ( FILE2 ) or die ( "Unable to close file: $!\n" );
my $i=0;

foreach (@data) {

if ( $i==0 ){
my @data2= split(/\n/,"@data");
my @data3= split(/ /,"@data2[$i]");
# В ячейках массива содержится поэлементная информация файла
$element=$data3[1];
}
else {
my @data2= split(/\n/,"@data");
my @data3= split(/ /,"@data2[$i]");
# В ячейках массива содержится поэлементная информация файла (причём ячейка массива в else должна быть на единицу больше массива в
if)
#Сейчас из последующего элемента отнимаем предыдущий
$raznica=$data3[2]-$element;

$element=$data3[2];

#просмотр результата вычитания
print "$raznica \n";
};
$i++;
};