OpenForum RSS: Perl �� .

Perl �� . (pxel)

Wed, 08 Oct 2014 20:48:14 GMT

> �� , �� top �� , ��
> ��.

ps?

Perl �� . (fire002)

Thu, 19 Jun 2014 19:04:48 GMT

�� , �� top �� , �� .

Perl �� . (��)

Thu, 19 Jun 2014 17:09:10 GMT

> #!/usr/bin/perl -w
> use strict;
> use warnings;

�� , �� -w � �� use warnings; - �� (�� ),
�� -��

> open F, "/usr/bin/top -n 1 -b -c \| /bin/grep 'hlds_' \| /bin/grep
> -v 'SCREEN' \| /bin/grep -v '/bin/sh'|" or die "error: $!";

�� , grep -v grep �� ))

�� , ��
[code]while (<FH>) {
next unless /hlds_[il]/;
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;
}[/code]
�� , �� perl �� grep'�� , ��

��
[code]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";

Perl �� . (fire002)

Wed, 18 Jun 2014 21:01:40 GMT

��, �� (��).
#!/usr/bin/perl -w
use strict;
use warnings;
my $put = "/home/stat/";
open FF, "/bin/cat /proc/meminfo \| /usr/bin/head -1 \| /usr/bin/awk '{print \$2}'|";
<FF>=~/(\d+)/;
my $m = $1/1024;
close FF;
open F, "/usr/bin/top -n 1 -b -c \| /bin/grep 'hlds_' \| /bin/grep -v 'SCREEN' \| /bin/grep -v '/bin/sh'|" or die "error: $!";
while (<F>)
{
chomp;
if($_=~/port\s\d+.+ip\s[\d\.]+/)
{
my $time = time;
$_=~/^\s*([^\s]+\s+){8}([^\s]+)\s+([^\s]+)\s+.*port\s(\d+).+ip\s([\d\.]+)/;
my $file = "$put$5:$4.txt";
my $cpu = $2; my $mem = $3;
$mem = int($mem*$m/100);
open US, ">>$file" or die "error: $!";
print US "$time\::$cpu\::$mem\n";
close US;
}
}
close F;

�� , �� , �� .
�� , /usr/bin/perl /home/stat/top.pl
�� :
/home/stat/top.pl: 2: use: not found
/home/stat/top.pl:

Perl �� . (��)

Sat, 14 Jun 2014 12:26:46 GMT

> 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]

�� , �� /��

Perl �� . (��)

Sat, 14 Jun 2014 11:11:02 GMT

[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 ��

Perl �� . (Andrey Mitrofanov)

Sat, 14 Jun 2014 07:14:01 GMT

>> awk '{print $9 " " $10}'
>> �� -��? ��, �� ...
> � �� cpu � mem �� awk ��, �� IP:port

OMFG
[CODE]
<top.txt awk 'match($0,"hlds_.+ -port ([0-9]+) \\+ip ([^ ]+)",aa){print$9" "$10>aa[2]":"aa[1]".txt"}'
[/CODE]

Perl �� . (fire002)

Fri, 13 Jun 2014 20:19:56 GMT

> awk '{print $9 " " $10}'
> �� -��? ��, �� ...

� �� cpu � mem �� awk ��, �� IP:port � �� , �� awk �� , �� (�� ).

Perl �� . (Skif)

Fri, 13 Jun 2014 13:48:01 GMT

>[�� ]
> �� , � �� CPU, MEM, IP � PORT
> (�� ), ��
> top -n 1 -b -c ....
> �� , �.� ��
> ��.
> ��, �� -�� CPU � MEM (9 � 10 ��) ��
> � �� , � �� IP:PORT.txt(etc)
> �� )
> �� top
> http://rghost.ru/56344231

awk '{print $9 " " $10}'
�� -��? ��, �� ...

OpenForum RSS: Perl ������� ������.

Perl ������� ������. (pxel)

Perl ������� ������. (fire002)

Perl ������� ������. (�������)

Perl ������� ������. (fire002)

Perl ������� ������. (�������)

Perl ������� ������. (�������)

Perl ������� ������. (Andrey Mitrofanov)

Perl ������� ������. (fire002)

Perl ������� ������. (Skif)

OpenForum RSS: Perl �� .

Perl �� . (pxel)

Perl �� . (fire002)

Perl �� . (��)

Perl �� . (fire002)

Perl �� . (��)

Perl �� . (��)

Perl �� . (Andrey Mitrofanov)

Perl �� . (fire002)

Perl �� . (Skif)