Perl プロセスの PID ルックアップの例
2022-01-29 14:27:19
これは主に、/proc ディレクトリにある関連ファイルを見つけることによって行われます。
#! /usr/bin/perl
use strict;
use warnings;
#usage: process_grep.pl ProcessName
exit( main(@ARGV) );
sub main {
my $Phash;
my $ProcessName = shift;
my $PROC_DIR = "/proc";
chdir $PROC_DIR;
my @pids = glob "[0-9]*";
for my $pid (@pids) {
open( FH, "$pid/cmdline" ) or die "Can't $pid file $! ";
$Phash->{$pid} = $_ while <FH>;
}
delete $Phash->{"$$$"};
for my $pid ( keys %$Phash ) {
print $pid, "\n" if $Phash->{$pid} =~ /$ProcessName/;
}
return 0;
}
関連
-
Perlの特殊記号の紹介
-
Perl学習チュートリアル - シングルラインコマンドの説明
-
perl チュートリアル perl チュートリアル集
-
Perlで警告や例外を捕捉してログに書き込む
-
Tesseract-OCRを使用したPerl Captcha認識チュートリアル
-
Perlの単一行コメントと複数行コメントの紹介
-
Perlにおけるchompとchopの違いの紹介
-
Perl で File::Lockfile を使用して、スクリプトの単一インスタンスを確保する
-
perlのファイルテスト演算子のまとめ
-
[解決済み] スクリプトからの不正なヘッダー。不正なヘッダー=<!DOCTYPE html> です。
最新
-
nginxです。[emerg] 0.0.0.0:80 への bind() に失敗しました (98: アドレスは既に使用中です)
-
htmlページでギリシャ文字を使うには
-
ピュアhtml+cssでの要素読み込み効果
-
純粋なhtml + cssで五輪を実現するサンプルコード
-
ナビゲーションバー・ドロップダウンメニューのHTML+CSSサンプルコード
-
タイピング効果を実現するピュアhtml+css
-
htmlの選択ボックスのプレースホルダー作成に関する質問
-
html css3 伸縮しない 画像表示効果
-
トップナビゲーションバーメニュー作成用HTML+CSS
-
html+css 実装 サイバーパンク風ボタン