Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #!/usr/local/bin/perl -w -s
- use DBI;
- my $dbh = DBI->connect("dbi:mysql:porta-billing", "root");
- my $sth = $dbh->prepare(<<SQL);
- SELECT name, value
- FROM UA_Profile_Values
- WHERE i_ua_profile=259
- SQL
- $sth->execute;
- #my %parameters = $sth->fetchrow_array();
- foreach ($sth->fetchrow_array()){
- print "$_\n";
- }
Add Comment
Please, Sign In to add comment