Beefy Boxes and Bandwidth Generously Provided by pair Networks
Pathologically Eclectic Rubbish Lister
 
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;

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://239528]
help
Chatterbox?
[erix]: hm nice might do a spot of diving - Red Sea is said to be beautiful
[LanX]: well too many terrorist tourists
[erix]: I guess I can pass for a native
[LanX]: talking about destruction of diving spots
[LanX]: Nodes to consider
[erix]: oops - got to run, see you later
[robby_dobby]: erix: 'appy day'ving

How do I use this? | Other CB clients
Other Users?
Others rifling through the Monastery: (11)
As of 2017-04-24 16:22 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    I'm a fool:











    Results (442 votes). Check out past polls.