Archive::Zip - ZIPファイルの解凍
[Perl] PerlでZIPファイルを解凍するにはArchive::Zipモジュールを使用します。 [例] #!/usr/bin/perl use Archive::Zip; #ファイル名を指定 $fileName = 'test.zip'; #オブジェクトを作成 my $zip = Archive::Zip->new(); #ファイルの読み込みに失敗したら強制終了 die 'read error' unless $zip->read($fileName) == AZ_OK; #ファイルの数はnumberofMembersで取得できます print "Extracting " . $zip->numberOfMembers($fileName) . " files from $fileName\n"; #ファイルの一覧を取得 @members = $zip->members(); for
掲示板のRSS - 朝顔日記
2003-09-07 web site tool このサイトの掲示板は picoBBS を使っているのですが、掲示板の生ログを眺めていたら、加工すれば RSS 出力させられそうな気がしたので、shinchan (誰)にお願いしたら、うまい具合に作ってもらえました。 log2rss.txt 朝顔日記掲示板のRSS 最初は cron 使って定期的にこのスクリプトを走らせようかと思いましたが、picoBBS をちょこっといじって、掲示板に書き込みや削除などデータファイルに変更があったタイミングで実行させるようにしました。以下 picobbs.cgi をいじったとこ。 # 動作分岐 if ($FORM{"do"} eq "post") { &do_post; } elsif ($FORM{"do"} eq "reply") { &do_print_reply; } elsif ($FORM{"do
Perlの排他制御 (flock,open,symlink,mkdir,rename)
ファイル操作の排他制御といえば、以下のものが代表的です。 flockとロックファイル（ディレクトリ）式に大きく分けられます。 ロックファイル（ディレクトリ）を使う open関数 symlink関数 mkdir関数 rename関数 古いロックファイル（ディレクトリ）の削除 シグナルトラップ flockを使う flock関数 読込モード 追加モード 上書き・読み書きモード エラー処理 まとめてロックする タイムアウト ■ロックファイル（ディレクトリ）を使う 基本は単なる使用中の目印です。目印が無いときに入って、自分で目印を作り、操作が終わったときに消して出るだけですね。トイレみたい(^^) で、使用中なら何回かノックします。（せかすな〜） open関数 ファイルオープン関数でファイル作成。 1.ファイルが存在するか。 2.しなければ作成。 と２段階を要するので、その隙に他のプロセスが
タイムアウト処理 - futomi's CGI Cafe
処理に時間がかかりそうな処理を書く際、タイムアウト時間を設定して、それを超えても処理が完了しなければ、 エラーを表示するような処理が必要になることがあります。 特に、ソケットを使って外部サーバーと通信する場合などがあてはまります。 もし相手のサーバーからの応答が無かったらどうなるでしょうか。 応答があるまで待ち続けることになります。 または、ブラウザー側が見切りをつけて待機することをやめてしまうでしょう。 もしご利用のレンタルサーバーに CGI の処理時間に制限があれば、Internal Server Error となるでしょう。 ここでは、秒数を指定してタイムアウト時の処理ができるうようにする方法を解説します。 目次 タイムアウト処理の方法 タイムアウトの処理を実装する方法として、ALRM シグナルを使う方法を解説します。 シグナルとは、イベントが発生した際に、オペレーティングシステムが
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
Perl%u30AA%u30D6%u30B8%u30A7%u30AF%u30C8%u6307%u5411%u30D7%u30ED%u30B0%u30E9%u30DF%u30F3%u30B0