|
プロセスID、親プロセスID、ログイン名、ユーザID、ユーザ情報を参照します。 動作例
ここを押すと、実行結果がわかります。↓ ソースコード
#!/usr/local/bin/perl
use CGI;
use strict;
my $cgi = new CGI;
$cgi->charset('EUC-JP');
print $cgi->header, $cgi->start_html('Process and User Information');
print "<p><table border=\"1\">\n";
print "<tr><th>名前</th><th>実際の値</th><th>意味</tr>\n";
print "<tr><td>\$\$</td><td>$$</td><td>プロセスID</tr>\n";
print "<tr><td>getppid</td><td>" . getppid . "</td><td>親プロセスID</tr>\n";
print "<tr><td>getlogin</td><td>" . getlogin . "</td><td>現在のログイン名</tr>\n";
print "<tr><td>\$<</td><td>" . $< . "</td><td>ユーザID</td></tr>\n";
print "<tr><td>getpwuid(\$<)</td><td>" . join(',', getpwuid($<)) .
"</td><td>ユーザID" . $< . "のユーザ情報</td></tr>\n";
print "</table></p>\n";
print $cgi->end_html;
|
▼ 個人的宣伝
|