cl.pocari.org

Perl & XML

  エリック・T. レイ (著), ジェイソンマッキントッシュ (著), Erik T Ray (原著), Jason McIntosh (原著), 財井一彰 (翻訳)
  オライリージャパン
  ISBN: 4873111064
  2002/11
  3,360 円

タグ: [Books][Perl]

Jcode 2.0 は Encode のラッパ

comments(0) | trackback(0)

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

タグ: [Perl]

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

comments(0) | trackback(0)

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

タグ: [Perl]

mhtmlファイルの作成

comments(0) | trackback(0)

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

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

タグ: [Perl]

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

comments(0) | trackback(0)

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

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

タグ: [Perl]

ChangeLog

comments(0) | trackback(0)

どうも，土曜日の更新が少ないような気がして調べてみた．
ちなみに，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][Code]

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

comments(0) | trackback(0)

- 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