Help for this page

Select Code to Download


  1. or download this
    #!/usr/local/bin/perl -w
use strict;

...
><
><
>4<
  2. or download this
        $res = $dh->prepare($sql);
    $res->execute();
...
            if ($res->{syb_result_type} == CS_ROW_RESULT) {
                if (defined $data) {
                    @$data = map {$_ ||= ""} @$data;
  3. or download this
    Modification of a read-only value attempted at TradeExtract.pl line 10
+3 (#1)

...

Uncaught exception from user code:
    Modification of a read-only value attempted at TradeExtract.pl lin
+e 103.