Re: perl and sql

[trs80]

You should be able to do something similar to this without installing any additional modules. You will need to parse the $capture string into columns (they are seperated by tabs)

use IPC::Open2;
use FileHandle;
use strict;

my ($rdr,$wtr) = (FileHandle->new , FileHandle->new);
my $pid = open2($rdr , $wtr , "mysql -uuser -ppassword database");
my $capture;
    print $wtr qq"select ARKET_CODE from envent where CODE='${vCode}';
+\n";
    close($wtr);
    while (<$rdr>) {
        $capture .= $_;
    }
print $capture , "\n";

1;