ザの人カウンターのコード

プログラミング Perl CGI

#! /usr/bin/perl # ザの人用カウンター # http://d.hatena.ne.jp/jjx/ # # -.cgi # gifcat.pl (http://www.tohoho-web.com/wwwsoft.htm) # log # img---+---normal # +---fuga # img/fuga(画像コード)ディレクトリには0.gif-9.gifという名前で書く番号の画…

2005-02-27

超超簡易テンプレート関数

プログラミング Perl

HTML::TemplateやTemplate-Toolkitなどのたいそうなものを使うほどでは無いが、あんまりコード内にHTMLを書きたくないとき。こういうのはどうでしょ。なんの変哲もないですが。第一引数に、テンプレートファイルの名前、第二引数以降に、置換文字列 => 置…

2005-01-23

Net::POP3::GetAsStruct

プログラミング Perl

久々だ・・・。ザの人（http://4104.hito.thebbs.jp/Madam/）ばっか使ってました。それはともかく、Net::POP3::GetAsStructモジュール。正直適当です。動けばいいってレベルです。 Net::POP3のget()をオーバーライドしてメールをハッシュのリファレンス…

2004-12-17

ロリコンの法則

プログラミング Perl

http://jjx.xxperlxx.org/cgi-bin/lolicom.cgi 衝動的にこんなものを作成。うーん。むなしい。んでもCGIMini::Templateは便利だぜ！と自画自賛。コードです。テンプレは別ファイルでも良いんですが面倒なので__DATA__にしてみた。それにしても普通にプ…

2004-12-16

CGIMini::JavaScript::Variable

プログラミング Perl

Perlの構造体をJavaScriptな形式に変換。使い方は至って簡単my $jsvar = CGIMini::JavaScript::Variable->new( foo => [ 'one', 'two', 'three' ]); print $jsvar->output;結果は var foo = ['one','two','three']; とな。 package CGIMini::JavaScript::Va…