perl は古いままなのに ruby だけ最新バージョンなんて滑稽だわ。 ここはお墓よ、JavaとJavaアプレットの。 ということで Perl のバージョンも上げておく。 http://www.perl.org/ 現在の最新バージョンは 5.16.2 の様子。 perl -v $ perl -v This is perl 5,…

http://search.cpan.org/~moznion/Acme-AjiFry-0.08/なんぞこれ use Acme::AjiFry; my $ajifry = Acme::AjiFry->new(); print $ajifry->translate_to_ajifry('はて、なんだこれは。')."\n"; print $ajifry->translate_from_ajifry('桑ドボアジフライ実アジ食…

http://search.cpan.org/~mikihoshi/Acme-PrettyCure-0.089/なんぞこれ。 英国版 wikipedia も最新状態になっている…http://en.wikipedia.org/wiki/Pretty_Cure

http://search.cpan.org/~ishigaki/Acme-CPANAuthors-Japanese-0.130104/Acmeシリーズは目的を想像することに意味があると思っていますが…

DBI、DBD::PG のリハビリを兼ねて書き書き。 まずはテスト用のテーブルを作成、てきとーにデータも突っ込んでおく。 create table test ( id integer unique, name text, color text ); insert into test values(1, 'hoge', 'red'),(2,'foo','green'),(3,'ba…

毎朝自分の住んでるところの天気予報だけちょうど良く見逃していることに腹が立ってきたので、 Livedoor の天気予報API を使った、今日or明日の天気をブラウザいっぱいに表示する CGI を組んでみた。 #!/opt/local/bin/perl -w use strict; use XML::TreePP;…

http://d.hatena.ne.jp/yamazaru_rengou/20090117/1232208059 $ perl -wc ./csvConv2.pl Unrecognized character \xE2 at ./csvConv2.pl line 8. コンパイルが通らないという問題でしたが、 Text::CSV_XS の perldoc からコードをコピペしたときに、全角スペ…

もっとアッサリ書けることに今更気付いたのでメモ。 Ruby #!/usr/bin/ruby -w require 'csv' code = {} CSV.open("code.csv", "r") do |c| code[c[0]] = c end CSV.open("master.csv", "r") do |m| puts [ m + code[m[0]] ].join(",") end Python #!/usr/bin…

コード #!/usr/local/bin/perl -w use strict; use warnings; use Data::Dumper; use constant OUTPUT_FILE => "union.csv"; my $path1 = $ARGV[0]; my $path2 = $ARGV[1]; eval { die "no argument." unless defined ( $path1 && $path2 ); die "no file ar…

ずっとスーパークラスに共通処理をまとめて書いてたけど、↓なやり方でも可能だったメモ。 ツール use strict; use lib qw(./); use File::Test; use Data::Dumper; my $test = File::Test->new(); my @work = qw( aaa bbb ); foreach ( @work ) { my $cmd = …

ちょっと動作を確認したい CPAN モジュールがあったから、mac に CPAN つかって入れちゃえーと思ったが最後。 sudo -H install -i Bundle::CPAN前回 Bundle::CPAN は終わっているはずなのにもう一回問題解決をすることとなるとはorz すんなりいくと思ってい…

MacBook で CAPTCHA を使ってみる。言語は Perl。 GD 導入 ↓を見れば GD 導入まで楽々でしたw http://wiki.livedoor.jp/kojima_ichiro/d/How%20to%20install%20GD%20on%20Mac%20OS%20X%2010.4 作業場所 $ mkdir ~/work $ cd ~/work zlib の導入 $ curl -O ht…

あっさり入るだろうと思いきや、いろいろ make test したあとに「Not Installed」。 どうも FTP してくる時点でこけてるような感じがするけど、メッセージが大杉なので参考サイトを探しちゃうことに。http://kawa.at.webry.info/200602/article_10.html http…

たまには早く帰宅して、自サバいぢり。 参考：http://blog.ajohnstone.com/archives/installing-memcached/ $ cd /usr/local/src $ wget http://www.monkey.org/~provos/libevent-1.3b.tar.gz $ tar xzvf libevent-1.3b.tar.gz $ cd libevent-1.3b $ ./confi…

use strict; use XML::RSS; use Encode; use utf8; eval { my $rss_file = './sample.rdf' || shift; my $rss = new XML::RSS; $rss->parsefile("$rss_file") or die $!; foreach my $item (@{$rss->{'items'}}) { print "title: ". encode('utf-8', $item->…

IPC::Run モジュールでできるっぽい。あとは $command 部分をいじってあげれば完成。パスワードをいちいち聞かれてしまうのはSSHパスワードを環境変数に設定すれば ok なのかなーと思っているのですが、どうも情報が見当たらない。RSA公開鍵を設定すると、パ…

やっとこさサンプルが書けましたorz 超単純な話のはずなのに、なぜか cookie の値を読んでくれない。今も $cgi = CGI->new してて、SESSON に丸ごと $cgi 渡してるからなぁ…コレでよいんですか？もっとシンプルなセッションの処理書きたかったんだけど参考に…

だって解析できないんだもん。 最近ようやく Data::Dumper という銀の弾丸を手に入れて喜んでましたが、CGI::Application を使われた状態で行なう web 開発(改修)はすごく大変です。 設計とか組み込みとか超楽に出来ると思いますが、悪夢です。CGI::Applicat…

訳あって、とてもキレやすくなってます。 自分で書いたソースとか、高い金がかかってるソースとかしか見てこなかったから余計にイライラ。 3行おきにログ吐いてコーディング中ですーどこで止まってるのかよくワカラナイT_T 「デバックの方法」とかいろいろ勉…

例 ) perl -e 'use Log::Dispatch; print Log::Dispatch->VERSION . "\n"'まさか後輩に教わるとは…何回か調べたことあったハズなのに、全く覚えていない現実。脳年齢が大変なことになってそうですわー

「一度解決した問題は何度も解決すべきでない」 オライリー：ハッカーになるには より わかっているんですが、記憶してなかった。 配列の中身を結合する ... MacBook に wget をインストール ずっと自サバアクセス用で使ってたので、mac に wget が入ってな…

うーん、うーん… Atom なのか XMLRPC なのか、なんだかよく解らないです。何が違うの？呼び出し方？？クライアントを作成中。おうちで改造して遊ぶ予定。困ったもんだー #!/usr/local/bin/perl -w use strict; use warnings; use XMLRPC::Lite trace=> "debu…

プログラミングと呼べることが出来ませんでした。 とりあえず、Plagger環境造っておこうかと。参考： Plagger - Trac QuickStartを参考にしますた plagger - otsune FreeStyleWiki $ su - # cpan cpan> test Plagger…めっさ大量なCPANモジュールが足りないよ…

文献(http://www.studyinghttp.net/header#Expect)によると… 多くの古い HTTP/1.0 や HTTP/1.1 各アプリケーションは、Expect ヘッダを理解できない。 SOAPも 0.65_5 までは対応してなかったよ。 クライアントは、希望する拡張を Expect によって与える事が…

perlのヘルプを見れば書いてあったそうですorz とりあえず -I オプションで可能ってことで。 $ perl -I '/usr/local/hogehoge/cpan-lib/' ./Makefile.PL ,..., ξ_､,_ﾐ δ ｯJヾ てﾉДｿ ＜つまらん！お前の話はつまらん！

YAPCとは Yet Another Perl Conference の略でよろしいのでしょうか？YAPC::Asia 2006 Tokyo (Japanese) http://tokyo.yapcasia.org/blog/ja/ なにやら現在の棲家に物凄く近いところで行われるそうなのでとても興味があります。 googleで検索したらすぐにメ…

役に立ちそうなサイトをかき集めていたら、The CPAN Search Site - search.cpan.org に RSS が張ってあることを発見。 早速ライブブックマークに取り込んでみたら、新着モジュールのリストが☆ コレは使えますな♪…いや、使えるかわからんけど、なんとなく最先…

guess_encodingをちゃんと使ってなかったので。。 #!/usr/local/bin/perl -w use strict; #use utf8; use Encode qw/ decode encode from_to /; use Encode::Guess qw/ shiftjis 7bit-jis /; my $str = shift || 'UTF-8:ゆーてぃーえふえいと'; my $decoder …

簡単に検索CGIが作れます！ #!/usr/local/bin/perl use strict; use warnings; use SOAP::Lite; use Jcode; use Template; use CGI; # $CGI::POST_MAX = 1024 * 100; my $cgi = CGI->new(); print $cgi->header( -type => 'text/html', -charset => 'utf8' )…

スケルトンメモ。ハッシュのハッシュが面白いだけorz #!/usr/bin/perl -w use strict; use warnings; use Getopt::Std; use Time::Local; use Term::ANSIColor qw(:constants); $Term::ANSIColor::AUTORESET = 1; use lib qw( ./lib ); use Log::Analyze; #m…