id.txtを使ってデータベースからデータを拾ってくるサンプル

#!/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 where ID=$id");
	foreach (@row) { $_ = decode("UTF-8",$_); }

	print $row[1],",",$row[2],",",$row[8],",",$row[10],"\n";
}

close FH;

$dbh->disconnect();