perl DBI 를 사용하여 multi row Insert 하는 부분 질문입니다.

#!/usr/bin/env python
 
# 01,spderp01,CPU Usage,2013-10-01 10:09:03,8.48
from datetime import datetime
from datetime import timedelta
import random
 
diff = timedelta(seconds=1)
when = datetime.now() - timedelta(days=100)
for i in xrange(20,800020):
    when += diff
    a = (str(i), 'spderp%02d' % (i%8+1), 'CPU Usage', when.strftime('%Y-%m-%d %H:%M:%S'), "%.02f" % (random.random() * 10))
    print ','.join(a)

$ ./gen_data.py > multiline.txt

#!/usr/bin/env perl
 
use strict;
use warnings;
use DBI;
 
sub fill_tbl {
    my ($dbh, $txtfile) = @_;
    my $sth = $dbh->prepare( "SELECT tname FROM TAB"
                           . " WHERE tname = 'SUM_CPU'");
    $sth->execute();
    # fetch하기 전에는 항상 $sth->rows() == 0 이 나와서 판별이 안됨
    while (my @row = $sth->fetchrow_array) {}
    if ($sth->rows() == 0) {
        $dbh->do("CREATE TABLE SUM_CPU (col1 integer primary key, col2 varchar2(20), col3 varchar2(20), col4 date, col5 number(10,2))");
        my $inserted = 0;
        my $transize = 5000;
        my $rows = 0;
        my $i = 0;
        my (@c1, @c2, @c3, @c4, @c5);
        # URL: stackoverflow.com/q/3864406
        # (($var-1) x 5) == (map $var-1, 1..5) == ($var-1) foreach (1..5) == ($var-1) for (1..5)
        ($#c1, $#c2, $#c3, $#c4, $#c5) = (($transize-1) x 5);  # pre-allocate array
#        $dbh->begin_work;
        #$sth = $dbh->prepare("INSERT INTO SUM_CPU VALUES(?, ?, ?, ?, ?)");
        $sth = $dbh->prepare("INSERT INTO SUM_CPU VALUES(?, ?, ?, TO_DATE(?,'YYYY-MM-DD HH24:MI:SS'), ?)");
        open my $fh, '<', $txtfile;
        while (<$fh>) {
            #next if $. == 1;   # 첫줄은 건너뜀
            my @arr = split(/,/);
            $i = $rows++ % $transize;    # ($i: zero-based index) vs. ($rows: one-based count)
            ($c1[$i], $c2[$i], $c3[$i], $c4[$i], $c5[$i]) = (@arr[0..3], $arr[4]+0.0);
            if(($rows % $transize) == 0) {
                # - URL: backpan.perl.org/authors/id/T/TI/TIMB/DBI_AdvancedTalk_200608.pdf
                #   caution: returns count of executions (even ones that failed) and not rows-affected
                # - URL: perlmonks.org/?node_id=743082
                #$inserted += $sth->execute_array({ArrayTupleStatus=>\my @tuple_status}, \@c1, \@c2, \@c3, \@c4, \@c5);
                $inserted += $sth->execute_array({}, \@c1, \@c2, \@c3, \@c4, \@c5);
                ($#c1, $#c2, $#c3, $#c4, $#c5) = ((-1) x 5);             # initialize all array
                ($#c1, $#c2, $#c3, $#c4, $#c5) = (($transize - 1) x 5);  # pre-allocate array again
#               $dbh->commit;
#               $dbh->begin_work;
            }
        }
        # $transize에는 미치지 못했지만 남은 레코드가 있으면 마저 입력
        if($rows % $transize) {
            ($#c1, $#c2, $#c3, $#c4, $#c5) = (($rows % $transize - 1) x 5);  # adjust array size
            $inserted += $sth->execute_array({}, \@c1, \@c2, \@c3, \@c4, \@c5);
        }
#        $dbh->commit;
    }
    $sth->finish();
}
 
sub fill_and_select {
    my ($txtfile) = @_;
    my $dbh = DBI->connect(
        "dbi:Oracle:host=192.168.0.101;port=1521;sid=ora10",
        "db_username",
        "db_password",
        { RaiseError => 1 },
    ) or die $DBI::errstr;
 
    #printf("AutoCommit == %d\n", $dbh->{AutoCommit});
    #$dbh->{AutoCommit} = 0;
 
    # 테이블이 존재하지 않으면 테이블을 만들고 데이터를 읽어들임
    # 이미 테이블이 존재하면 그냥 리턴
    fill_tbl($dbh, $txtfile);
 
    my $sth = $dbh->prepare( "SELECT col1, col2, col3, col4, col5"
                           . "  FROM SUM_CPU" );
    $sth->execute();
    while (my @row = $sth->fetchrow_array) {
        print "$row[0] $row[1] $row[2] $row[3] $row[4]\n";
    }
 
    $sth->finish();
    $dbh->disconnect();
}
 
fill_and_select("multirow.txt");

$sth = $dbh->prepare( q{INSERT /*+ PARALLEL(SUM_CPU,4) */ INTO SUM_CPU VALUES(?, ?, ?, ?, ?)});
$sth = $dbh->prepare("INSERT \/\*\+ PARALLEL(SUM_CPU,4) \*\/ INTO SUM_CPU VALUES(?, ?, ?, ?, ?)");
$sth = $dbh->prepare("INSERT /*+ PARALLEL(SUM_CPU,4) */ INTO SUM_CPU VALUES(?, ?, ?, ?, ?)");