Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
PerlMonks  

Re: perl and sql

by trs80 (Priest)
on Feb 28, 2003 at 19:38 UTC ( #239528=note: print w/ replies, xml ) Need Help??


in reply to perl and sql

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;


Comment on Re: perl and sql
Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://239528]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others wandering the Monastery: (8)
As of 2014-11-23 13:56 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My preferred Perl binaries come from:














    Results (132 votes), past polls