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

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

(1/2) > >>

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

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

vladsu:
Что-то вроде этого:

--- Код: ---
#!/usr/bin/perl -w

use strict;

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

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

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

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";

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

MasteRaf:
Спасибо, vladsu!


--- Цитировать ---while ( my($port,$q) = each %ports ) {
   print FHW "$port => $q\\n";
}
--- Конец цитаты ---


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

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

--- Цитировать ---   $ports{$1}++ while /\\((\\d+[^)])/g;
--- Конец цитаты ---


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

vladsu:

--- Цитировать ---MasteRaf:
здесь просто опечатка? - вместо $port правильно писать $ports ???
--- Конец цитаты ---

А Вы не пробовали сначала запустить? Нет, здесь нет опечаток.


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

Здесь сразу несколько тем.
Это  $ports{$1}
читайте в разделе про хеши.
Об этом ++
читайте в разделе про операции.
Об этом while
читайте в разделе о циклах и в разделе об укороченной записи. В привычном для Вас формате это будет выглядеть так
while ( /\\((\\d+[^)])/g ) {
 $ports{$1}++;
}

А это /\\((\\d+[^)])/g
регулярное выражение. Которое начинается символом /, далее ищет в переменной $_ открывающую скобку за что отвечает \\(, сразу после скобки ищутся любые цифры за что отвечает  \\d+ и цифры ищутся до тех пор пока не встретится закрывающая скобка [^)], все найденные цифры сохраняются в переменной $1, за это отвечает другая пара скобок (), далее следует окончание регекспо /, а буква g нужна для того, чтобы сообщить компилятору, чтобы он не прекращал поиск в переменной $_ пока не будет достигнут её конец.

И ещё нужно посмотреть тему о спец. переменных, в данном случае о $_, даннай переменная заполняется в строке while ( ) {.

Вроде всё.

Совет. Если же Вы решили изучить Перл, то лучше читать книгу с начала, а не урывками.

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

Навигация

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

[#] Следующая страница