Windows 7で、perlのプログラムをいくつか立ち上げているのですが、時々チェックをして、落ちているプログラムを調べたいのですが、
my @process = qx/tasklist/;
で見ますと、全て、perl.exeとなり、どれがどれなのか全く分かりません。解決する方法はないものでしょうか?
一例
NAME、CommandLine以外に得られる項目についてはダンプしてください。
# use Data::Dumper; use Win32::Process::Info; my $pi = Win32::Process::Info->new( { assert_debug_priv => 1 } ); my @processinfo = $pi->GetProcInfo(); foreach my $process (@processinfo) { # print Dumper($process); print join( ':', $process->{'NAME'}, $process->{'CommandLine'} ) }
http://search.cpan.org/~wyant/Win32-Process-Info-1.020/lib/Win32/Process/Info.pm
それぞれログを出して、そのログがちゃんと更新されているのか確認したらいかがでしょうか?
確かに、この方法はありですね。思いつきませんでした。良いアイディアありがとうございます。
一例
NAME、CommandLine以外に得られる項目についてはダンプしてください。
# use Data::Dumper; use Win32::Process::Info; my $pi = Win32::Process::Info->new( { assert_debug_priv => 1 } ); my @processinfo = $pi->GetProcInfo(); foreach my $process (@processinfo) { # print Dumper($process); print join( ':', $process->{'NAME'}, $process->{'CommandLine'} ) }
http://search.cpan.org/~wyant/Win32-Process-Info-1.020/lib/Win32/Process/Info.pm
おー、こんな方法があったのですね。
とても助かりました!
おー、こんな方法があったのですね。
2013/03/13 20:10:36とても助かりました!