The below code works as desired, as you will notice I switched to DBD:Sybase,
> perl sybase_trial.pl<br>
the file table is there!!!<br>
did succeed. size: 75<br>
did succeed. size: 150<br>
did succeed. size: 300<br>
did succeed. size: 600<br>
did succeed. size: 1200<br>
did succeed. size: 2400<br>
did succeed. size: 4800<br>
did succeed. size: 9600<br>
did succeed. size: 19200<br>
did succeed. size: 38400<br>
did succeed. size: 76800<br>
did succeed. size: 153600<br>
did succeed. size: 307200<br>
did succeed. size: 614400<br>
did succeed. size: 1228800<br>
did succeed. size: 2457600<br>
did succeed. size: 4915200<br>
did succeed. size: 9830400<br>
did succeed. size: 19660800<br>
did succeed. size: 39321600<br>
did succeed. size: 78643200<br>
> cat sybase_trial.pl
#connect to the database, set some properties
#
$user = "...";
$pass = "...";
$dsn="dbi:Sybase:server=...;database=dbname";
$force= DBI->connect("$dsn",$user,$pass) or die "can't connect";
$fileTableName="fileTable";
$cmd="SELECT 1 FROM INFORMATION_SCHEMA.TABLES WHERE TABLE_TYPE='BASE TABLE' AND TABLE_NAME='$fileTableName\'";
$fetchcmd= $dbh->prepare($cmd);
$fetchcmd->execute();
if(@row= $fetchcmd->fetchrow_array){
print "the file table is there!!!\n";
}else {
$createCmd=$dbh->prepare("create table $fileTableName (fileColumn VARBINARY(MAX) not null)");
$createCmd->execute() or die "can't create table";
$insertCmd=$dbh->prepare("insert into $configTableName (fileColumn) values (?)");
$insertCmd->bind_param(1,0,DBI::SQL_VARBINARY);
$insertCmd->execute();
}
$fetchcmd->finish();
$insertcmd= $dbh-> prepare("insert into $fileTableName (fileColumn) values (CONVERT(varbinary(max),?))");
# 350kBites -> largest number is 2^(8*350000)-1
for($i = 75; $i<2**280000;$i=$i*2){
print"did";
$insert='g'x$i;
$insertcmd->bind_param(1,$insert,DBI::SQL_VARBINARY);
$insertcmd->execute() or print" not ";
$insertcmd->finish();
$sz=length($insert);
print " succeed. size: $sz\n";
}
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.
|