人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

【Perl】【Windows】システム環境変数を取得できますか?

ActivePerl でWindowsのシステム環境変数を取得するにはどうすればよいのでしょうか?
CGIサーバの話ではありません。

●質問者: radio3
●カテゴリ:コンピュータ
✍キーワード:CGI Perl Windows サーバ システム
○ 状態 :終了
└ 回答数 : 2/2件

▽最新の回答へ

1 ● dica33
●35ポイント

当方ActivePerlを入れてないので確認できていませんが、

http://aspn.activestate.com/ASPN/docs/ActivePerl/5.8/lib/Env.htm...

こちらの方法で出来るのではないかと思います。

◎質問者からの返答

確認してませんが(^^;)

ありがとうございました!


2 ● znz
●100ポイント ベストアンサー

Win32::OLEを使って取得できるようです。

Environment("SYSTEM")の代わりにEnvironment("USER")にすればユーザ環境変数になります。

#!/usr/bin/perl -w
use strict;
use Win32::OLE;
my $WshShell = Win32::OLE->CreateObject("WScript.Shell");
my $SysEnv = $WshShell->Environment("SYSTEM");
for my $value (in $SysEnv) {
 print "$value\n";
}
◎質問者からの返答

ありがとうございます!

バッチリでした。

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ