批量生成创建语句

[oracle@PD sbin]$ cat t1.pl use DBI;use HTTP::Date qw(time2iso str2time time2iso time2isoz);my $dbName = 'PD';my $dbUser = 'query';my $dbUserPass = 'kjk7787czcb';my $dbh = DBI->connect("dbi:Oracle:$dbName", $dbUser, $dbUserPass) or die "can't connect to database ";my $date1= "$ARGV[0]";my $date2="$ARGV[1]";my $date=$date1;my $tip='+1'; sub get_date{        my $var_date=$_[0];        my $hostSql = qq{select   to_char((to_date('$var_date','YYYYMMDD')$tip),'YYYYMMDD')  from  dual  where  rownum=1};       my ($a1, $a2, $a3,$a4,$a5,$a6,$a7,$a8,$a9);           my $selStmt = $dbh->prepare($hostSql);           $selStmt->execute();           while (@recs=$selStmt->fetchrow_array) {       foreach (@recs)       {$date=$_;return $date}};};    for ($i=1;$i<=16;$i++){    while (1==1){    $date3=$date;    print "create table test$i.test_$date3;\n";    $date=&get_date($date3);    if ( "$date" == "$date2" ){print "create table test$i.test_$date;\n";$date="$date1";last;}   };   };