Îã wget -np -r -A PDF,pdf http://www.city.otaru.hokkaido.jp/gikai/kaigiroku/honkaigi/honkaigi.htm -A EXT EXT¤Ç»ØÄꤵ¤ì¤¿³ÈÄ¥»Ò¥Õ¥¡¥¤¥ë¤Î¤ß¼èÆÀ -R EXT EXT¤Ç»ØÄꤵ¤ì¤¿³ÈÄ¥»Ò¤Î¥Õ¥¡¥¤¥ë¤Ï¼èÆÀ¤·¤Ê¤¤ -np ¿Æ¥Ç¥£¥ì¥¯¥È¥ê¤Ï»²¾È¤·¤Ê¤¤
pdftotext -enc UTF-8 sample.pdf sample.euc
pdftotext -enc EUC-JP sample.pdf sample.euc
pdftotext -enc Shift-JIS sample.pdf sample.euc¡¡
use File::Find; @ARGV = qw(.) unless @ARGV; find sub { push @list, $File::Find::name, -d && '/', "\n"}, @ARGV; chomp @list; foreach(@list){ unless($_){next;} if(/^\//){next;} unless(/pdf$|PDF$/){next;} if(/(.*)(PDF|pdf)$/){$filename=$1;} $fileTxt = $filename . "txt"; $exe = "pdftotext -enc UTF-8 $_ $fileTxt"; print "$exe\n"; system("$exe"); }