Archive::Zipでミスった件

メモ Perl

Archive::Zipでfileを圧縮したら、最初ミスってファイルのパスのまま圧縮されて解凍したときびびった件。 use Archive::Zip; my $zip = Archive::Zip->new(); $zip->addFile('/home/wajiho/test1.csv'); $zip->addFile('/home/wajiho/test2.csv'); $zip->add…

2009-01-09

HTML::FormFuの覚書

Perl

今日もcatalystの勉強中〜 selectとかのoptionを動的に変える my $e = $form->get_element({name => 'inform_to'}); my @option; for my $mail (@managers) { push @option, [$mail => $mail]; } $e->options(\@option); actionを変える $form->populate({ a…

2008-09-18

配列の中身をmapで置換しようとしてはまったからメモ

Perl

@list = qw/text1 text2 text3/; @new_list = map { $_=~ s/text/word/ } @list;見たいな感じでやると、 $VAR1 = '1'; $VAR2 = '1'; $VAR3 = '1';ってなる。えぇぇぇぇって思っていろいろ調べてたら、置換処理したときは処理した回数を返すそうです。（全然…

2008-08-03

WWW::Mechanize 文字化けにはまる。

Perl

やりたいことはとっても簡単なことで、googleで検索して結果を取得・表示させるだけ。なのに文字化けしてすごい躓いたよ。。。 Mech使ってやって見ました。 use WWW::Mechanize; my $mech = WWW::Mechanize->new; my $url = 'http://www.google.co.jp'; $me…