PC Memorandum of augustus: perl Archives
二重起動の防止 あるプログラムが走っているときに、同時に同じプログラムを起動させたくないときがある。Windows 環境であれば mutex オブジェクトを使うことができ、Perl にも Win32::Mutex モジュールが存在する。 use Win32::Mutex; die "二重起動" if(Win32::Mutex->open('hogehoge')); $mutex=Win32::Mutex->new(1, 'hogehoge'); while(1){ print ++$n,"\n"; sleep(5); }; ２行目で他に hogehoge という名前の Mutex オブジェクトが作られていないかどうかチェックし、もし他で hogehoge という名の Mutex オブジェクトが作られていれば、先へ進まずに終了する。３行目では hogehoge という Mutex オブジェク
ユーザ認証を要するページにperlでアクセス @PC Memorandum of augustus
ユーザ認証を要するページにperlでアクセス BASIC認証またはDIGEST認証を要求する web ページに perl でアクセスしたいときには LWP::UserAgent モジュールの credentials メソッドが使える。 実験用に用意した http://www.augustus.to/test/authtest/ にアクセスしてみよう。領域名は Auth_Test、ユーザ名は authtestuser、パスワードは password である。スクリプトは以下のようになる。 use LWP; use HTTP::Request::Common; $domain="www.augustus.to"; $port=80; $realm="Auth_Test"; #領域名 $user="authtestuser"; #ユーザ名 $passwd="password"; #パスワード $
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
