転載元忘れた。ｽﾏｿ
http://pc.2ch.net/test/read.cgi/perl/990289701/n486