くだすれPerl（超初心者用）3

[0954 nobodyさん 2010/09/09(木) 17:50:35 ID:???]

試してないけど、こんなんじゃだめなのけ

my @codes = split /,/, '1,2,3,4,5';
my $sql = 'SELECT * FROM TEST WHERE testcode IN (' . join(',', ('?') x @codes) . ')';
my $sth = $dbh->prepare($sql);
$sth->execute(@codes);