Advertisement
Guest User

Untitled

a guest
May 15th, 2017
77
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 0.59 KB | None | 0 0
  1.                         $file=~ s/!ToMBoT // && $file =~ s/qry //;
  2.                         sub mysql_query
  3.                         {      
  4.                             my $host="localhost";
  5.                             my $database="asd";
  6.                             my $user="root";
  7.                             my $password="*****";              
  8.                             $db = Mysql->connect($host, $database, $user, $password);
  9.                             $db->selectdb($database);
  10.                             $query = $db->query($file);
  11.                
  12.                             while (%hash = $query->fetchhash)
  13.                             {
  14.                                 $conn->privmsg($conn->{channel}, $hash{'egy'}.' egy oszlop eredmenye');
  15.                                 $conn->privmsg($conn->{channel}, $hash{'ketto'}.' ketto oszlop eredmenye');;                           
  16.                             }                  
  17.                         }
  18.                         $file="";
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement