4 posts tagged “perl”

HTML::TreeBuilder 使おうと思ったら日本語がエスケープされてしまって困った。と思ったら

CLON - HTML::TreeBuilderのエスケープ処理がよくなっている

を見つけて cpan install HTML::TreeBuilder したら解決。spidering hacks 以降全く使っていなかったという罠。。。時間ができたらまた読んでみようかな。当時は僕の perl 元年だったし。

が良い感じです。HTML::Templateのノリで結構使いやすい。いや、バイナリなExcelをプログラムから直接扱う(編集する)のが嫌だったんですよね。そこでちょこちょこと探していたところでこれを見つけました。

まずはテンプレートファイルを用意 excel_template.xml

<workbook>
 <worksheet name="tester">
     <row>
         <cell text="HOME" />
         <cell text="PATH" />
         <cell text="NAME" />
     </row>
     <row>
         <cell text="$HOME" />
         <cell text="$PATH" />
         <cell text="$NAME" />
     </row>
 </worksheet>
</workbook>

次に上のテンプレートからExcelを作る excel_template.pl

#!/usr/bin/perl
use strict;
use warnings;
use Excel::Template;
use Encode qw(decode);

my $template = Excel::Template->new(
 filename => "excel_template.xml",
);

$template->param(
 HOME => $ENV{HOME},
 PATH => $ENV{PATH},
 NAME => decode('eucjp', 'ほげ'),
);

$template->write_file('excel_template.xls');

制御構造も扱えるから中々良いんじゃない？

Shibuya Perl Mongers TeckTalks #7 申し込みできず。。。今日に限って、集中するためにメーラを落としてたのがまずかった。フィードも見てなかった。

情報の伝達は早いなぁ。残念過ぎだぁ。。。

Perlベストプラクティス

posted with amazlet on 06.09.22

Damian Conway クイープ オライリー・ジャパン (2006/08/24)

Amazon.co.jp で詳細を見る

日本版が出てすぐに買っておいたけど、しばらくRubyを触っていたので放置してました。 ようやっと読み初めましたがクックブックのようにカテゴリ分けされていてそれぞれが tips になっているので、すごく読みやすいです。電車の中で読みたいけど、でかくて重いのでちょっときついです。きっと変な目で見られます。でもtipsひとつのボリュームは、電車で読むには丁度いい感じですね。 今日読んで「知らんかった」もの。

use Readonly;
Readonly my $CONSTANTS_NUMBER => 42;

use Data::Alias;
for my $agent_num (0..$#operatives) {
    alias my $agent = $operatives[$agent_num];
    $agent = '[disavowed]';
}

for my $agent (@operatives) {
    $agent = '[disavowed]';
}