Perl & XML

  4873111064
  http://www.amazon.co.jp/o/ASIN/4873111064/todaysnonsenc-22/ref=nosim/
  エリック・T. レイ (著), ジェイソン マッキントッシュ (著), Erik T Ray (原著), Jason McIntosh (原著), 財井 一彰 (翻訳)
  オライリージャパン
  ISBN: 4873111064
  2002/11
  3,360 円

Jcode 2.0 は Encode のラッパ

  http://naoya.dyndns.org/~naoya/mt/archives/001618.html

iTunes でいま聴いている曲情報を MSN メッセのニックに付加する

  http://antipop.zapto.org/mt/archives/001232.php

mhtmlファイルの作成

  http://dkiroku.com/2005-02-19-9.html

  Outlook Express を削除しているとできません.

Perl オブジェクト指向プログラミング

  http://www.pure.ne.jp/~learner/program/Perl_oo.html

- via: 読書記録ChangeLog
  http://dkiroku.com/2005-02-15-9.html

ChangeLog

  どうも,土曜日の更新が少ないような気がして調べてみた.
  ちなみに,chalow からソースぱくりまくり.

#!/usr/bin/env perl

use strict;
use Time::Local;

my $fname = shift;

open(F, $fname) || die "file open error $fname : $!";
binmode(F);
my %day;
while (<F>) {
    if (/^(\d{4}-\d\d-\d\d)/) {
        eval { $day{get_day_of_week($1)}++; };
    }
}
close F;

my @week = qw(Sun Mon Tue Wed Thu Fri Sat);
foreach (@week) {
    printf "%s (%d) %s\n", $_, $day{$_}, '*' x $day{$_};
}

sub get_day_of_week {
    my ($d, $m, $y) = @_;
    ($y, $m, $d) = split("-", $d) unless (defined $m);
    my $WEEKDAY = (localtime timelocal(0, 0, 0, $d, $m - 1, $y))[6];
    return qw(Sun Mon Tue Wed Thu Fri Sat)[$WEEKDAY];
}


- 結果: 予想通り

Sun (48) ************************************************
Mon (72) ************************************************************************
Tue (64) ****************************************************************
Wed (69) *********************************************************************
Thu (68) ********************************************************************
Fri (60) ************************************************************
Sat (30) ******************************

複数の Perl モジュールを一発でインストール

- bundle を作成して Perl モジュールのインストールを簡単に
  http://hori-uchi.com/archives/000254.html

package Bundle::Foo;

$VERSION = '1.00';

1;

__END__

=head1 NAME

Bundle::Foo - foo

=head1 SYNOPSIS

perl -MCPAN -e 'install Bundle::Foo'

=head1 CONTENTS

Foo::bar

Hoge::Hoge


  こんな感じでモジュールを作って,

$ perl -MCPAN -e 'install Bundle::Foo'

  で,Foo::bar と Hoge::Hoge がインストールされる.こりゃ楽だ.

ULTIMATE Perl ― 究極の Perl スクリプトの世界へ

  4883374068
  http://www.amazon.co.jp/o/ASIN/4883374068/todaysnonsenc-22/ref=nosim/
  水野 貴明 (著)
  ソシム
  ISBN: 4883374068
  2004/11
  1,575 円

Perl

  ドイツに Perl という地名があったよ.

  

- Perl
  http://www.multimap.com/map/browse.cgi?gride=710895&gridn=6323072.93380175 ...

use CGI::WebGzip で gzip で出力するモジュール

- CGI::WebGzip
  http://naoya.dyndns.org/~naoya/mt/archives/001509.html

  便利.