Программирование > Perl

Статистика из текстового файла

<< < (2/2)

vladsu:
Пример пожалуйста.

MasteRaf:
2007-06-29 14:15:00   456778746   0011:00:48:45,048   82.200.22.33   1   86   0011:00:48:28,628   0011:00:48:28,628   0   0   82.176.121.61   82.200.22.43   0.0.0.0   1   0   49151   46303   17   32   16   0   0   0   0


(даже не пробел, а табуляция наверное между ними)

MasteRaf:
49151 SRCport
46303 DST

vladsu:

--- Код: ---
use strict;

my $fileDlyaChteniya = \'1.txt\';
my $fileDlyaZapisi   = \'2.txt\';
my %ports;

open FHR, $fileDlyaChteniya or die "Can\'t open $fileDlyaChteniya: $!\\n";

while ( ) {
   map {$ports{$_}++} ((split /\\s+/,$_))[17,18];
}

close FHR or die "Can\'t close $fileDlyaChteniya: $!\\n";
open FHW, "> $fileDlyaZapisi" or die "Can\'t open $fileDlyaZapisi: $!\\n";

while ( my($port,$q) = each %ports ) {
   print FHW "$port => $q\\n";
}
close FHW or die "Can\'t close $fileDlyaZapisi: $!\\n";

--- Конец кода ---

Навигация

[0] Главная страница сообщений

[*] Предыдущая страница