The script below give this Error!
DBD::ODBC::st execute failed: MicrosoftODBC SQL Server DriverInvalid character value for cast specification (SQL-22018)(DBD: st_execute/SQLExecute err=-1)
use LWP::Simple;
use HTML::TableExtract;
use DBI;

my $dbh1 = DBI->connect('DBI:ODBC:OptionsDB', 'sa', '') or die "Couldn
+'t connect to database: " . DBI->errstr;
my $sth1 = $dbh1->prepare('INSERT INTO OptionsDB..MyOpt (Security, Vol
+ume, Previous, TodayHigh, TodayLow, TodayClose, Change) VALUES (?,?,?
+,?,?,?,?)') or die "Couldn't prepare statement: " . $dbh1->errstr;

use Data::Dumper;
 
open (CSEFILE, 'SCE.htm');
$/ = undef;
my $response = <CSEFILE>;       
$/ ="\n";
close CSEFILE;

$response =~ s/.*Statistics//s;
$response =~ s/Volume Weighted Average.*//s;
$response =~ s/[\r\n]//gs;
$response =~ s/\t+/ /gs;
$response =~ s/ +/ /gs;

#my $te = HTML::TableExtract->new( headers => ['Time', 'Security', 'Vo
+lume', 'Previous', 'High', 'Low', 'Today\'s', 'Change'] );
my $te = HTML::TableExtract->new( headers => ['Security', 'Volume', 'P
+revious', 'High', 'Low', 'Today\'s', 'Change'] );


#my $content = get("http://www.cse.lk/marketinfo/splsum.jsp");

$te->parse($response);
  foreach $ts ($te->table_states)
    {
      foreach $row ($ts->rows)
       {
       #print Dumper $row;

        #print @{$row},"\n";
        #print $row->[0]."\t".$row->[1]."\t".$row->[2]."\t".$row->[3].
+"\t".$row->[4]."\t".$row->[5]."\t".$row->[6]."\t".$row->[7]."\n";
        
        $Security = $row->[0];
        $Volume = $row->[1];
        $Previous = $row->[2];
        $TodayHigh = $row->[3];
        $TodayLow = $row->[4];
        $TodayClose = $row->[5];
        $Change = $row->[6];
        
        
        print $row->[0]."\t".$row->[1]."\t".$row->[2]."\t".$row->[3]."
+\t".$row->[4]."\t".$row->[5]."\t".$row->[6]."\n";
        
        #$sth1->execute($row->[0], $row->[1], $row->[2], $row->[3], $r
+ow->[4], $row->[5], $row->[6]) or die "Couldn't execute statement: " 
+. $sth1->errstr;
        $sth1->execute($Security, $Volume, $Previous, $TodayHigh, $Tod
+ayLow, $TodayClose, $Change) or die "Couldn't execute statement: " . 
+$sth1->errstr;
       }
}

[download]
SCE.htm is at http://www.cse.lk/marketinfo/splsum.jsp
I Use MSSQL server 2000 on a w2k environment.

1. I need a solution to the SQL error.
2. Is there any way that i could rewrite this code shorter?

In reply to Invalid character value for cast specification by Kanishka

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.