> local $query = qq{insert into class(days,name,cid,mime_type,kind) valu
> es( ?, ?, ?, ?, ?)};
> local $cursor=$dbh->prepare($query);
>
> foreach $list(@contents) {
> eval {
> $cursor->bind_param(1,$days,$DBD::SQL_VARCHAR2);
> $cursor->bind_param(2,$list,$DBD::SQL_CHAR);
> $cursor->bind_param(3,$subject,$DBD::SQL_NUMBER);
> $cursor->bind_param(4,$mime,$DBD::SQL_VARCHAR2);
> $cursor->bind_param(5,$kind,$DBD::SQL_VARCHAR2);
> $cursor->execute();
> };
$list =~ s/^\s//g;
를 한번 넣어보시겠습니까?
tolkien입니다.
|