35 lines
688 B
Perl
35 lines
688 B
Perl
|
#!/usr/bin/perl -w
|
||
|
|
package try;
|
||
|
|
use strict;
|
||
|
|
|
||
|
|
BEGIN {
|
||
|
|
use lib qw{lib};
|
||
|
|
use MySQL::BinLog;
|
||
|
|
}
|
||
|
|
|
||
|
|
my %connect_params = (
|
||
|
|
hostname => 'whitaker.lj',
|
||
|
|
database => 'livejournal',
|
||
|
|
user => 'slave',
|
||
|
|
password => 'm&s',
|
||
|
|
port => 3337,
|
||
|
|
debug => 1,
|
||
|
|
|
||
|
|
log_slave_id => 512,
|
||
|
|
);
|
||
|
|
|
||
|
|
sub handler {
|
||
|
|
my $ev = shift;
|
||
|
|
print( ('-' x 70), "\n",
|
||
|
|
">>> QUERY: ", $ev->query_data, "\n",
|
||
|
|
('-' x 70), "\n" );
|
||
|
|
}
|
||
|
|
|
||
|
|
my $filename = shift @ARGV;
|
||
|
|
|
||
|
|
my $log = MySQL::BinLog->open( $filename );
|
||
|
|
#my $log = MySQL::BinLog->connect( %connect_params );
|
||
|
|
|
||
|
|
my @res = $log->handle_events( \&handler, MySQL::QUERY_EVENT );
|
||
|
|
|