Perl

ひさしぶりに触ってみる。

ヒアドキュメントも、忘れてるし print レスポンスヘッダを出力しなくて、500 エラー出したり無茶苦茶。 print "Content-type: text/html\n\n";

PerlでTomcatのフリをしよう。Net::AJP13の巻

PerlはJavaにだってなれるんだ!(違)

Epic Perl Editor Plugin 0.1.0 alpha + Eclipse 3.0 Patches From Ozacc(http://blog.ozacc.com/):20040303Eclipse 3.0 M7 で問題なく動作。 かなり前に試したときには、Syntax チェックするときに 一瞬 DOS 窓が開いて ActivePerl でチェックしていたので …

Sledge http://sl.edge.jp/インストール方法解説 http://sledge.i-e-c.co.jp/index.html

my %hoge = ('id'=>'hoge');&moge(\%hoge); exit;sub moge() { my ($hoge) = @_; print $hoge->{'id'}; my @h_keys = keys(%$hoge); } デリファレンスは $hoge : $$hoge @hoge : @$hoge %hoge : %$hoge

インストール済みのモジュール一覧 find `perl -e 'print "@INC"'` -name '*.pm' -print

配列やハッシュをサブルーチンで使う場合 キャストっぽいなぁ。 my @array1=('1','2'); my %hash2=('2'=>'1','1'=>'2'); &hoge(\@array1, \%hash2); exit 1; sub hoge { my @a1 = @{$_[0]}; my %h2 = %{$_[1]}; print $a1[0]."\n"; print $h2{'2'}."\n"; } …

正規表現の結果文字列取得my $str = "hoge moge hoge"; #対象をカッコで囲む。 $str =~ /(moge)/; #カッコが2つ、3つとあれば、$2、$3に結果が入る print "$1\n"; #$1 へ入れる処理はコストが高いらしいので必要ない場合は以下の通り if($str =~ /(?:moge)…

社内のPerl組みからDBスキーマを取得したいけど 何か無いか?ということだったので Torque-genを紹介。結構評判良かったです。http://db.apache.org/torque/generator/[java] 素晴らしきかないろいろベンチ http://d.hatena.ne.jp/masanobuimai/20040109#p2