和暦の文書の日付をPerlで扱おうと思って

とりあえず、install DateTime::Format::Japanese としてみたんだけどCPANつながらなかったんでこまった。つながったと思ったらこれはCPANするレベルじゃねえぞ、てくらい何かいっぱい入った。はたしてこれで目的の物できるのかな。

とりあえずここまで作った

#!/usr/bin/perl

use strict;

use warnings;

use utf8;

use Encode;

use LWP::Simple;

use open ":utf8";

use open ":std";

 

my $url = 'http://law.e-gov.go.jp/htmldata/H05/H05HO091.html';

my $html = decode('cp932',get($url) );

 

my $day_kansu = $1 if $html =~m/最終改正：(.+日)/;

print "$day_kansu\n" if $day_kansu;

勘のいい人なら気づくと思いますが、法的要求事項一覧を自動的にアップデートできないかなーて思っています。