バインド変数を使いたくないのだ

shared poolの断片化に関する調査を行うため
perlでちょろっと書いてみました。

いちいちdbiとか使わなくていいので楽かも。

<br />open SQL, "| sqlplus -s scott/tiger";<br /><br />for (10000..200000){<br />	print SQL "insert into hoge values ($_);\n";<br />	my $num = $_;<br />	my $i = 0;<br />	foreach $i (1..10){<br />	print SQL "select /*","x" x $i ,"*/  col1 from hoge where col1=$num;\n";<br />	$i++;<br />	}<br />}<br /><br />print SQL "rollback;\n";<br />print SQL "exit;\n";<br /><br />close SQL;<br />