2011-07-09から1日間の記事一覧
#!/usr/bin/perl use DBI; use utf8; binmode STDOUT, ":utf8"; binmode STDIN, ":utf8"; use Encode; $dbh = DBI->connect('DBI:mysql:dbname','username','pass'); open FH, "<id.txt"; while (<FH>) { chomp; $id = $_; @row = $dbh->selectrow_array("select * FROM DataTable</id.txt";>…
http://blog.clouder.jp/archives/001139.html
foreach i ( *.csv ) nkf -w -Lu $i > `basename $i .csv`.txt end