Как мне узнать нагрузку создаваемую моими скриптами?

Материал из MultiWiKi
Перейти к: навигация, поиск

Как мне узнать нагрузку создаваемую моими скриптами?

Достаточно скачать Perl скрипт выводящий список процессов Вашего аккаунта. Распакуйте и сохраните скрипт в каталог например: public_html, обязательно убедитесь, что при загрузке скрипта в FTP-клиенте был выбран ASCII режим!


Теперь, если Вам понадобится список процессов Вашего аккаунта в любой момент времени заходим по ссылке http://ваш_домен/proc.pl



Исходный код скрипта:

#!/usr/bin/perl
use English;
use strict;
use warnings;
use locale;
 
my $uname=getpwuid($UID);  
 
print "Content-type: text/html; charset=utf8; \n\n";
print "<HTML><HEAD>";
print "<TITLE>Список процессов пользователя $uname</TITLE>";
print "<BODY>";
print "<p><h1>Список процессов пользователя $uname :</h1></p>";
print "<font face=\"Courier New\">"; 
open PS, "ps u -U $uname |" or die "cannot open ps!\n";
print "<table border=\"0\" cellspacing=\"25\" cellpadding=\"1\">\n";
 
while (<PS>)
 {
  s/</&lt;/g;
  s/>/&gt;/g;
  s/\n/<br>/g;
  s/\$//g;
 
  my @ps=split /\s+/;
 
  my ($user,$pid,$cpu,$mem,$vsz,$rss,$tty,$stat,$start,$time)=splice @ps,0,10;
  my $command=join(" ",@ps);  
 
  next if ($command =~ /ps\su\s-U/);
  next if ($command =~ /proc.pl/);
 
  print "<tr>\n";	
  print "<td>$pid</td><td>$cpu%</td><td>$mem%</td><td>$rss</td><td>$command</td>\n";
  print "</tr>\n";
 }
 
print "</table>"; 
print "</font>";
print "<p>".localtime()."</p>"; 
print "</BODY></HTML>";