mirror of
https://github.com/percona/percona-toolkit.git
synced 2025-09-23 21:05:00 +00:00
Add lib/, t/lib/, and sandbox/. All modules are updated and passing on MySQL 5.1.
This commit is contained in:
19
t/lib/samples/log_splitter.pl
Executable file
19
t/lib/samples/log_splitter.pl
Executable file
@@ -0,0 +1,19 @@
|
||||
#!/usr/bin/env perl
|
||||
|
||||
use strict;
|
||||
require '../LogSplitter.pm';
|
||||
require '../SlowLogParser.pm';
|
||||
|
||||
my $lp = new SlowLogParser();
|
||||
my $ls = new LogSplitter(
|
||||
attribute => 'Thread_id',
|
||||
saveto_dir => "/tmp/logettes/",
|
||||
lp => $lp,
|
||||
verbose => 1,
|
||||
);
|
||||
|
||||
my @logs;
|
||||
push @logs, split(',', $ARGV[0]) if @ARGV;
|
||||
$ls->split_logs(\@logs);
|
||||
|
||||
exit;
|
Reference in New Issue
Block a user