重新启动超出 RAM 的进程的脚本

Question

我想编写一个可以作为 Windows 服务运行的脚本。当用户正在使用进程并且它超过例如 500mb RAM 时，它将重新启动进程表中活动的进程。我该怎么做？有人可以提出任何例子吗？

Answer 1

总是有肮脏的方式。在 Windows 中使用 tasklist ：

use List::Util qw<first>;

my ( $mem )      
    = map   { ( my $a = $_ ) =~ s/,//g; $a } 
      grep  {; length } 
      map   { m/([\d,]+)[ ]K$/ } 
      first { m/^perl\.exe\s+$\b/ } 
      `tasklist`;

if ( $mem > MAX_MEM ) {
    do_something();
}

但据我了解，您也可以这样做，使用 Win32::Process::Info：

use Win32::Process::Info;
my  $pi = Win32::Process::Info->new ();
my $set = first { exists $_->{WorkingSetSize} } $pi->GetProcInfo( $ );
my $mem = $set && $set->{WorkingSetSize};