Исходное сообщение
"Perl выборка данных." Отправлено михалыч, 14-Июн-14 16:26
> ip/port же различные или так нужно? #!/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!"; 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;}     open  FT, ">", "$ip:$port.txt";     print FT "$cpu $mem\n";     close FT; } close FH; сразу не понял, что и куда писать/сохранять

Ваше сообщение
Имя*:
EMail:	Для отправки новых сообщений в текущей нити на email укажите знак ! перед адресом, например, !user@host.ru (!! - не показывать email). Более тонкая настройка отправки ответов производится в профиле зарегистрированного участника форума.
Заголовок*:
Сообщение*:	>> ip/port же различные > или так нужно? > [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!"; > 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;} > open FT, ">", "$ip:$port.txt"; > print FT "$cpu $mem\n"; > close FT; > } > close FH;[/code] > сразу не понял, что и куда писать/сохранять
	Введите код, изображенный на картинке: