mirror of
https://github.com/percona/percona-toolkit.git
synced 2025-09-11 21:51:21 +00:00
20 lines
346 B
Perl
Executable File
20 lines
346 B
Perl
Executable File
#!/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;
|