Сообщения

1

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

« : 08 Июля 2007, 23:29:13 »

49151 SRCport
46303 DST

2

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

« : 08 Июля 2007, 23:26:23 »

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


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

3

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

« : 05 Июля 2007, 18:15:49 »

Пасиб, vladsu.
Появилась модифицированная задача - теперь порты в текстовом файле не отделены скобками, а просто пробелами. Так вот,  SRCport  идет после 16-го пробела, а DST после 17-го. Как бы их рвануть оттуда допустим по тому же регулярному выражению?

4

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

« : 03 Июля 2007, 20:06:08 »

Спасибо, vladsu!

while ( my($port,$q) = each %ports ) {
   print FHW "$port => $q\\n";
}

здесь просто опечатка? - вместо $port правильно писать $ports  

Если не сложно, объясни вот это подробно

  $ports{$1}++ while /\\((\\d+[^)])/g;

или подскажи, в каких разделах учебников это можно найти (особенно  /\\((\\d+[^)])/g )

5

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

« : 03 Июля 2007, 17:49:52 »

Есть текстовый файл с инфой:
-----\\\\------
.................tcp 10.64.66.4(0) -> 89.111.180.41(0)
-----\\\\------
в скобках номер порта. Надо вывести инфу (лучше в файл), какие использовались порты (без повтора желательно). Для гуру наверное это несложно, 5 сек. Помогите (или подскажите)

P.S. Вчера впервые узнал, что такое Perl