Advertisement
Guest User

Untitled

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