404 Blog Not Found:勝手に添削 - Ajaxでデバッグしよう - ＠IT
2007年03月07日11:00 カテゴリLightweight Languages 勝手に添削 - Ajaxでデバッグしよう - ＠IT 記事そのものはまあいいのだけど、CGIの部分があまりにひどいので。 Ajaxでデバッグしよう - ＠IT 私の仕事の現場ではJavaを開発言語として使用することが多いので、JSPやServletとして実装していますが、今回はレンタルサーバでも利用しやすいようにPerlで作成しました。以下のソースを参考にしてください。 Before まあご覧下さい。前世紀末においてすら[これはひどい]レベルです。著者はJava屋さんとのことなのでその点を甘く見ても、一体何を参考にして書いたのか是非お聞かせください。 local %params; # エージェントはGETメソッドだけを使用するのでPOSTは考慮しない # リモートログエージェントから送られてたログ情報を環
Perl Tips | Linux で、デーモンのプログラム（Perl スクリプト）を自動起動させるには？
「 Perl で、デーモン (Daemon) のプログラムを書くには？ 」ではタイトルの通り、Perl でデーモンのプログラムを書く方法を紹介した。 それでは、せっかく Perl で書けたこのデーモンプログラム（Perl スクリプト）、Linux で自動起動させてあげるにはどうしたらいいのだろうか？ 以下のスクリプトの青字の部分を修正する。 .pl には、Perl で書いたデーモンのスクリプト名が入る。 /var/www/cgi-bin/your_service_dir には、上のスクリプトを置いた場所が入る。 以下のシェルスクリプトを your_service_manager など、自分の好きなファイル名にして、/etc/rc.d/init.d に保存する。 スクリプトは実行できるようにしておくこと。 $ chmod +x your_service_manager #!/bin/bash
4-2. Perl の危険な関数
Perlには他のプログラムを起動したり，文字列で与えられた式を実行時に解釈実行する機能を持つ関数が用意されている。こうした関数に与える引数は，十分に吟味しないと，悪用されて意図しないコマンドを実行させられる。 Perlには外部プログラムとの連携機能が複数組み込まれている。Perlは連携機能を実現するため内部的にUnixシェルを起動する（注１）。そのため連携機能をユーザ入力データなどの外部から与えられるデータと組み合わせて使用する場合，外部からシェルコマンドを混入され実行されてしまう可能性がある。次の関数はこのような問題につながる注意すべき関数や構文である。 open system, exec, ``(backticks) <>(fileglob)，glob C言語などのコンパイル系言語と異なりPerlはスクリプト系言語である。Perlは実行時にプログラムを解釈して実行する。eval
Perl Tips | Perl で、デーモン (Daemon) のプログラムを書くには？
Perl で、スクリプトをデーモン化するのはそんなに難しくない。 Proc::Daemon というモジュールを使えば簡単にできる のだが、それには小さなフレームワークに沿ってスクリプトを書かねばならない。次のサンプルに空のフレームワークを示したので、既存のスクリプトがある場合にはこれに沿って自分のスクリプトを少々改造すればよい。基本的には action サブルーチンにロジックを書けばいいようになっている。 使用するモジュール use Proc::Daemon; #/usr/bin/perl -w use Proc::Daemon; our $DAEMON = 1; # デーモンにするか？: 1(オン) / 0 (オフ) our $SLEEP_INTERVAL = 60; # スリープの間隔（秒） &init; &run; sub action { # ここ
ファイル検索イテレータ Find::File::Iterator って便利かも？
Perl でディレクトリ一覧を取得するとき、File::Find を使ったり、opendir でゴリゴリ書いたりってのが普通だったりしませんか？Perl 標準だけで書けるので。僕の場合は、配布用 CGI とかは、File::Find を使って、それ以外では自前のモジュールって感じで使っていました。 で、最近 File::Find::Iterator を今更ながら知りました。なんか 2003 年でメンテナンスが止まっているっぽいですが、なかなか優れもののモジュールです。ソースを見ると File::Find を継承したものではなく、Class::Iterator を継承して IO::Dir 使って書かれてます。今、Author をよく見たら作者が同じだった・・・。 File::Find を使った場合は、 use File::Find; our @files; our @dirs; find(\
Config::Simple - 簡単な設定ファイルクラス - perldoc.jp
名前¶ Config::Simple - 簡単な設定ファイルクラス 概要¶ use Config::Simple; # --- 簡単な使い方。設定ファイルをハッシュに読み込みます: Config::Simple->import_from('app.ini', \%Config); # --- オブジェクト指向インターフェース: $cfg = new Config::Simple('app.ini'); # 値へアクセスする: $user = $cfg->param('User'); # 値をハッシュとして得る: %Config = $cfg->vars(); # 文字列で値を更新する: $cfg->param('User', 'sherzodR'); # 配列で値を更新する: $cfg->param('Users', ['sherzodR', 'geek', 'merlyn']); # i
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
PHP でファイルを読み取るための正しい方法
狐の王国 perlでSingleton