TinyURLを操作する

memo perl

Muibrog

2007-04-18

続・初めてのPerl 改訂版

memo perl mono

続・初めてのPerl 改訂版作者: Randal L. Schwartz,brian d foy,Tom Phoenix,吉川英興,伊藤直也,田中慎司,株式会社ロングテール/長尾高弘出版社/メーカー: オライリー・ジャパン発売日: 2006/10/21メディア: 大型本購入: 9人クリック: 389回この商品を含む…

2007-03-08

Mac OS XにDBD::mysqlをインストールする

mac perl

cc -c -I/usr/local/lib/perl5/site_perl/5.8.8/darwin-2level/auto/DBI -I/usr/local/mysql/include -fno-common -DDBD_MYSQL_INSERT_ID_IS_GOOD -g -fno-common -DPERL_DARWIN -no-cpp-precomp -fno-strict-aliasing -pipe -Os -DVERSION=\"4.001\" -DXS_V…

2007-03-07

FindBin

perl

aaa.plというスクリプトからBBB.pmを呼ぶ場合、aaa.plの中に use BBB; と書けば「./aaa.pl」で実行できる。だけど絶対パスで実行するときには、このままだとBBB.pmが見つからない。そこで使うのがFindBinというモジュール。 use FindBin; use lib $FindBin::…

2007-02-25

Plagger::Date

perl plagger

自分用のメモ。やりたかったこと。 plagger/assets/plugins/Publish-Planet/sixapart-std/template/index.ttの中で「[% entry.date.format('Mail') %]」という形で日付フォーマットを設定してるので、それを変更したい。引数の'Mail'の部分をいろいろ変更…

2007-02-16

Plagger::Plugin::Filter::Kotonoha

perl plagger

やりたかったことは、KotonohaのRSSってauthorが載ってなかったので、useridをauthorに入れたってだけ。 package Plagger::Plugin::Filter::Kotonoha; use strict; use base qw( Plagger::Plugin ); use XML::RSS; sub register { my($self, $context) = @_;…

2007-02-05

WebPage に Lingr のチャットルームを挿入したい

perl

2007-01-31を参考にして実装しようとした。 1. サーバ側で session.create, room.enter などを実施して ticket を生成 2. 上記の ticket と counter をパラメータとして script を含めたレスポンスをブラウザに返す 3. ブラウザ上で room.observe を JSONP …

2007-02-05

WebPage に Lingr のチャットルームを挿入したい２

perl

[lingr][javascript]JavaScriptでLingrクライアント - urekatの日記 - Lingr Group on Hatenaを読んだ。やりたいことは一緒のようなので参考になる。 observeが一瞬で返ってきている。待ってくれるはずなんだけど。ってのと同じ現象になる。あとJSONPが二重…

2007-01-31

Plagger::Plugin::CustomFeed::AmazonWebService

perl plagger

先日の続き。とりあえず動いた。 package Plagger::Plugin::CustomFeed::AmazonWebService; use strict; use base qw( Plagger::Plugin ); use Net::Amazon; use Encode; sub register { my ( $self, $context ) = @_; $context->register_hook( $self, 'sub…

2007-01-29

最近plaggerに手を出した

perl plagger

Plagger::Plugin::CustomFeed::AmazonWebServiceを使ってみようとしたら動かなかった。 8行目 use Plagger::Event; Plagger::Eventが今は無いように見える。 my $event = Plagger::Event->new; $event->dtstart($date); $event->dtend( $date->clone->add( h…

2006-08-20

ファイルの更新時刻を変更する

perl

さっきの逆で。 setMtime('filename', '2006-01-01 10:11:12'); sub setMtime { my ($filename, $date) = @_; my $class = 'DateTime::Format::HTTP'; my $local_c = $class->parse_datetime($date)->{'local_c'}; my $mtime = timelocal($local_c->{'second…

2006-08-20

ファイルの更新時刻を取得する

perl

DateTime::Format::HTTPで使えるような形で取得したい。 sub getMtime { my $filename = shift; my @stats = stat($filename); my ($sec, $min, $hour, $day, $month, $year) = localtime($stats[9]); return sprintf("%.4d-%.2d-%.2d %.2d:%.2d:%.2d", $yea…

2006-06-24

catlxomに触ってみる２

perl catalyst

速攻で教えてもらった。はじめまして。http://mizzy.org/ のものです。 catlxom.yml に以下の記述を追加するといけると思います。 flavour: flavours: - html どうもありがとうございます。いつもサイト見させてもらってます。ってことで catlxom.yml に追…

2006-06-24

catlxomに触ってみる

perl catalyst

情報は http://catlxom.org/trac より。 CPAN で Task::Catalyst インストール svn co http://catlxom.org/repos/trunk/catlxom Configファイルの変更（catlxom-example.yml を catlxom.yml に）足りなかったモジュールのインストール、Data::Page、Text::T…

2006-05-24

chomp vs 俺

perl

chomp の引数ってリストでもいいのね。 chomp @list;って書けば、@list配列の全ての要素の改行文字を削除してくれるのね。今まで foreach (@list) { chomp; }ってしなきゃダメだと思ってましたよ。 my @list = ("1?n", "2?n", "3?n"); chomp @list; foreach…

2006-05-19

古いモジュールをまとめて更新

perl

古いモジュールの更新 - Perl表技集より # 古くなっているモジュールの一括更新 > perl -MCPAN -e "CPAN::Shell->install(CPAN::Shell->r)"

2006-05-10

perl を 5.8.8 にアップしてみた

mac perl

sudo port install perl5.8 sudo port install p5-cgi.pm cpan で CGI::Session をインストール cpan で Template をインストール sudo port install p5-xml-rss sudo port install p5-datetime なんかこの順番で入れるとスムーズにインストールできたのでメ…

2006-02-20

CGI::Session vs 俺

perl

perl でセッション管理ってどうやるんだっけと思ったのでちょっと勉強してみた。 #! /usr/bin/perl -w use strict; use CGI; use CGI::Session; my $q = CGI->new; my $session = new CGI::Session("driver:File", $q, {Directory=>'/tmp'}); if ($session->…

2006-01-06

perl の配列 vs 俺

perl

（多分長い）ある配列の中から 10 個だけ取り出す。間違い @logs = $logs[0 .. 9]; 正解 @logs = @logs[0 .. 9]; いっつも間違えるので自分用にメモ。

2005-11-20

File::Find vs 俺

perl

こういうのテンプレートっていうの？メモって置くと後で便利のかもと思って。 #!/usr/local/bin/perl -w use strict; use File::Find; my @directories = ("."); find(\&wanted, @directories); sub wanted { print $_ . "\n"; } print "\n";

2005-11-04

Tree::Simple::Visitor::FindByPath vs 俺

perl

CPAN で perl -MCPAN -e shell install Tree::Simple::Visitor::FindByPath この辺り t/70_Tree_Simple_Visitor_LoadDirectoryTree_test........NOK 8 # Failed test '... our tree is in the proper order' # in t/70_Tree_Simple_Visitor_LoadDirectoryTre…

2005-11-04

Catalyst vs 俺

perl catalyst

CPAN で perl -MCPAN -e shell install Catalyst で、 ---- Unsatisfied dependencies detected during [M/MR/MRAMBERG/Catalyst-5.33.tar.gz] ----- Tree::Simple::Visitor::FindByPath Shall I follow them and prepend them to the queue of modules we a…

2005-11-04

Catalyst vs 俺

perl catalyst

cd Catalyst-5.33 perl Makefile.PL と、やると、 # running Build.PL /usr/bin/perl -I_build/lib Build.PL Checking whether your kit is complete... Looks good * ERROR: Prerequisite Tree::Simple::Visitor::FindByPath isn't installed ERRORS/WARNIN…

2005-11-03

Template-Toolkit vs 俺

perl

CPAN でインストールにトライしたときはなんか失敗した。多分リターンキー連打してたからだと思う。今回は質問を確認しながらやってみる。 > cd Template-Toolkit-2.14 > perl Makefile.PL Makefile を作成する Do you want to run the DBI tests? It requir…