当サイトで生成している RSS（野良feed）：

dtpwiki.jpで提供しているサービス：

DTPWiki（DTP・印刷関連ドキュメント共有）
Planet DTP@jp（DTP・印刷従事者 blog最新投稿一覧）
Planet Inddscript（InDesign Script関連最新投稿一覧）
印刷会社はてなブックマークランキング（印刷企業番付）
印刷会社Twitterフォロワー数ランキング（印刷企業番付）
Windows JIS90/JIS2004確認Webアプリ
ドット絵メーカー（source）
EDGE Now!の覆面の中の人暴露（Source）
はてな牧場（説明）

« またDTP2.0とやらを提唱する方が | トップページ | Flash CS3 Video Encoderの不具合送っておいた »

2007.09.02

法律改正日を確かめるPerlスクリプト

法的要求事項とかっていう奴で、たまに法律が変わっていないか確認しなきゃいけないですよね。というわけで、法令データ提供システムのURL指定したらそこから最終改正の日付を取ってくるPerlスクリプトです。

#!/usr/bin/perl
use strict;
use warnings;
use utf8;
use Encode;
 
my $url  = 'http://law.e-gov.go.jp/htmldata/H05/H05HO091.html';
my $html = get_html( $url );
my $dt   = parse_date( $html );
print "$dt\n";
exit;
 
sub get_html {
  #use URI::Fetch;
  use LWP::Simple;
  my $uri = shift;
  #my $res = URI::Fetch->fetch( $uri );
  my $res = get( $uri );
  return decode( 'cp932', $res);
}
 
sub parse_date {
  my $html = shift;
  (my $date = $html) =~ s/^.+最終改正：(.+?日).+$/$1/s;
  use DateTime::Format::Japanese;
  my $dt = DateTime::Format::Japanese->parse_datetime( $date );
  return $dt;
}

これをPlaggerとかのなんかに組み込めば、法律改正があるたびにメールが来るなど、文系に役に立つものになるかなーて思ったけれども、もうPlagger設置してから設定いじりやってないから、これをどう組み込んでいいかわかんないや。

2007.09.02 午後 11:31 [Script] | 固定リンク