Исходное сообщение
"Perl выборка данных." Отправлено михалыч, 14-Июн-14 15:11
#!/usr/bin/perl use strict; use warnings; my $file = shift; my ($cpu,$mem,$port,$ip); open FH, "<", $file or die "can't open file $file: S!"; open FT, ">", "txt"; while (<FH>) {     s/^\s+//;     my @s = split /\s+/, $_;     ($cpu, $mem) = ($s[8], $s[9]);     if (/port\s+(\d+)\s+\+ip\s+([\d\.]+)\s+/) {$port = $1; $ip = $2;}     print FT "$cpu\t$mem\t$port\t$ip\n"; } close FT; close FH; > записывались в текстовый файл, к примеру с названием вида IP:PORT.txt(etc) ip/port же различные

Ваше сообщение
Имя*:
EMail:	Для отправки новых сообщений в текущей нити на email укажите знак ! перед адресом, например, !user@host.ru (!! - не показывать email). Более тонкая настройка отправки ответов производится в профиле зарегистрированного участника форума.
Заголовок*:
Сообщение*:	> [code]#!/usr/bin/perl > use strict; > use warnings; > my $file = shift; > my ($cpu,$mem,$port,$ip); > open FH, "<", $file or die "can't open file $file: S!"; > open FT, ">", "txt"; > while (<FH>) { > s/^\s+//; > my @s = split /\s+/, $_; > ($cpu, $mem) = ($s[8], $s[9]); > if (/port\s+(\d+)\s+\+ip\s+([\d\.]+)\s+/) {$port = $1; $ip = $2;} > print FT "$cpu\t$mem\t$port\t$ip\n"; > } > close FT; > close FH;[/code] >> записывались в текстовый файл, к примеру с названием вида IP:PORT.txt(etc) > ip/port же различные
	Введите код, изображенный на картинке: