Need a unique gift idea?
A Pastebin account makes a great Christmas gift
SHARE
TWEET

Untitled

a guest Jun 13th, 2018 56 Never
Upgrade to PRO!
ENDING IN00days00hours00mins00secs
 
  1. #!/usr/local/bin/perl -w -s
  2.  
  3. use DBI;
  4.  
  5. my $dbh = DBI->connect("dbi:mysql:porta-billing", "root");
  6.  
  7. my $sth = $dbh->prepare(<<SQL);
  8.     SELECT name, value
  9.     FROM UA_Profile_Values
  10.     WHERE i_ua_profile=259
  11. SQL
  12.  
  13. $sth->execute;
  14.  
  15. #my %parameters = $sth->fetchrow_array();
  16.  
  17. foreach ($sth->fetchrow_array()){
  18.     print "$_\n";
  19. }
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top