[B! perl] zinoueのブックマーク

Part1 正しいPerl/CGIの書き方：ITpro

Shibuya Perl Mongers 2代目リーダーにして，ppencodeの作者。広島市立大学卒業後，大企業向けmod_perl製品の開発に従事。2005年よりサイボウズ・ラボ株式会社に入社。LL Ringに参戦。Namazu for Win32，Plagger，Ajajaのコミッターでもある。 CGIといえばPerl。そんな風にいわれていた時期もありました。レンタル・サーバーのCGIで手軽にPerlが使えたこともあり，ちょっとした掲示板のスクリプトやアクセス・カウンタなど，CGIプログラムの多くがPerlで書かれていました。このためPerlが爆発的に普及したのです。Perlは日本のインターネット黎明期を支えたプログラミング言語として，広くその名が知られています。その半面，Perlで書かれたプログラムの保守性に悩む声も聞かれるようになりました。事実，Perlのプログラミング経験が少

zinoue 2007/10/23

perl

リンク

inetd の仕組みを見てみる - naoyaのはてなダイアリー

inetd や xinetd (以下 inetd) はインターネットサービスをデーモン化するのに共通している処理を担い、ほとんどの時間をアイドル状態で過ごすその手のサービスに必要なリソースを節約する役割を果たします。 inetd のひとつ面白いところは、inetd でサービス化したいプログラムの標準入力/標準出力がクライアントソケットの入出力に接続されるところです。例えば daytime 相当のサービスを自分で作ろうと思った場合 #!/usr/local/bin/perl # daytime.pl use strict; use warnings; use DateTime; use IO::Handle; STDOUT->autoflush(1); STDOUT->printf( "%s\n", DateTime->now(time_zone => 'Asia/Tokyo') ); と標

zinoue 2007/08/01

perl
network

リンク

Perl&CGI最強講座 [smart]

indexは、第1引数STRの先頭から第2引数SUBSTRが最初に見つかった位置を返します。第3引数 POSITIONで検索する位置を指定することもできます。第3引数POSITIONには最初の文字を 0 として指定します。返却値は 0、もしくは変数$[に設定した値です。SURSTRが見つからなかった場合は -1 を返します。 indexの使い方 $str = "How you always hurt the one you love."; print index($str,'you'); > 4

zinoue 2007/07/19

perl

リンク

Perlで日付・時間を操作 - DateTime モジュールの使い方 (iandeth.)

Perlには、日時の加・減算を扱うモジュールが標準でついてきません。僕の仕事場ではずっと、同僚が作ったオリジナルモジュールを皆で使いまわしていたのですが、今になって、世間的 (CPAN) にはどんなものがあるのか気になって調べてみました。※参考になったのは miyagawa 氏のメールマガジンの過去記事と、perl.com の The Many Dates and Times of Perl なるエントリでした。今回は数ある日付関連モジュールの中から、Dave Rolsky氏の DateTime モジュールについて、その基本的な使い方について簡単にまとめたので共有してみます。同氏は上記 perl.com 記事の執筆者であり、この前の YAPC::Asia で DateTime project について講演してくれていた人です。気合の入ったモジュールを作ってくれた事に感謝。目次基本

zinoue 2007/05/29

perl

リンク

perl - telnetコマンドを自作する : 404 Blog Not Found

2007年05月11日12:00 カテゴリLightweight Languages perl - telnetコマンドを自作する Perl Cookbook (English) Christiansen / Torkington [邦訳: Perlクックブック] ないものは自作してみるということで。 Vista は telnet コマンドが無効化されているところが Cygwin から telnet コマンドが使えなくて焦った。 Cygwin の setup を確認したり PATH を確認したり。コマンドプロンプトからも駄目。ざっとこんなところか。 ptelnet.pl #!/usr/local/bin/perl use strict; use warnings; use IO::Socket::INET; my $addr = shift || die "$0 host [port]

zinoue 2007/05/11

Perl低ネットワークプログラミング

perl

リンク

404 Blog Not Found:perl - 万能なnewの書き方

2007年04月23日22:45 カテゴリLightweight Languages perl - 万能なnewの書き方 Perl 5のOOは、慣れてしまうと簡単だ。継承とか考えずに、普通にクラスを作りたければ、必要なのは以下の二行だけ。 package Klass; sub new { bless {} }; これだけでは何もできないので、とりあえずnameというアクセサーを追加してみる。これだけ。 sub name { my $self = shift; $self->{name} = shift if @_; return $self->{name}; } しかし、上の形式だと、継承をサポートしていない。だから、 package Klass; sub new { bless {} }; package Klass::Sub; our @ISA = qw/Klass/; # new

zinoue 2007/04/24

リンク

Perlメモ

PERLメモ仕事柄、しょっちゅういろんなCGIを書きます。そんな中でしょっちゅう使う小物をメモしています。「車輪を再開発するな」「プログラマの 3 つの美徳は、無精、短気、傲慢」をモットーにコピペで使えるものを書き留めています。僕の癖が強いものもありますがご容赦を。目次２配列によるチェックソートリストシャッフル CGIにおけるリダイレクト処理ディレクトリーの一覧を習得したいファイルを一気にスカラーに読み込みたいファイルからランダムに一行出す全ての変数名を表示するその場でスカラー変数を作るハッシュのキーでソートハッシュのキーと値を交換する(値が重複してはならない) 2つのハッシュをまとめる最も効率の良い方法。またはハッシュの更新ハッシュの値でソート配列の一つごとの数値フィールドを指定しそれを比較してソートした配列を返す数字に３桁ごとのカンマを入れちゃう配列

zinoue 2007/04/19

perl

リンク

PERL 5 ノート

Pathologically Eclectic Rubbish Liste (病的折衷主義ガラクタ出力機) についてのKAINの個人的研究用NOTE (結構ぐちゃぐちゃ)Shift_JIS版 CONTENTS　暇なとき制作中 Perl のデータ構造 [変数名][コンテキスト][スカラ値][スカラ値の構成][リスト値の構成] Perl の構文 [DESCRIPTION][単純実行文][複合実行文] Perl の演算子と優先順位 [演算子と優先順位インデックスへ] Perl の正規表現 [DESCRIPTION][正規表現][Version 8 正規表現][FAQやTIPS] Perlrun Perlのインタプリタでの実行とオプション [DESCRIPTION][スイッチ] perlfunc Perl の組み込み関数 (GZIP圧縮済みHTMLにてIE4 or NN4以上でないと見れません)