mirror of
https://github.com/percona/percona-toolkit.git
synced 2026-03-05 01:13:28 +08:00
168 lines
4.9 KiB
Perl
Executable File
168 lines
4.9 KiB
Perl
Executable File
#!/usr/bin/env perl
|
|
|
|
# This program is part of Percona Toolkit: http://www.percona.com/software/
|
|
# See "COPYRIGHT, LICENSE, AND WARRANTY" at the end of this file for legal
|
|
# notices and disclaimers.
|
|
|
|
use strict;
|
|
use warnings FATAL => 'all';
|
|
use constant MKDEBUG => $ENV{MKDEBUG} || 0;
|
|
|
|
# Finds the max element in the list
|
|
sub max {
|
|
my $i = shift @_;
|
|
foreach my $n ( @_ ) {
|
|
$i = $n if $n > $i;
|
|
}
|
|
return $i;
|
|
}
|
|
|
|
# Read all lines
|
|
my @lines;
|
|
my %word_count;
|
|
while ( <> ) {
|
|
my $line = $_;
|
|
my @words = $line =~ m/(\S+)/g;
|
|
push @lines, \@words;
|
|
$word_count{ scalar @words }++;
|
|
}
|
|
|
|
# Find max number of words per line
|
|
my @wc = reverse sort { $word_count{$a}<=>$word_count{$b} } keys %word_count;
|
|
my $m_words = $wc[0];
|
|
|
|
# Filter out non-conformists
|
|
@lines = grep { scalar @$_ == $m_words } @lines;
|
|
die "I need at least 2 lines" unless @lines > 1;
|
|
|
|
# Find the widths and alignments of each column
|
|
my @fmt;
|
|
foreach my $i ( 0 .. $m_words-1 ) {
|
|
my $m_len = max(map { length($_->[$i]) } @lines);
|
|
my $code = $lines[1]->[$i] =~ m/[^0-9.-]/ ? "%-${m_len}s" : "%${m_len}s";
|
|
push @fmt, $code;
|
|
}
|
|
my $fmt = join(' ', @fmt) . "\n";
|
|
|
|
# Print!
|
|
foreach my $l ( @lines ) {
|
|
printf $fmt, @$l;
|
|
}
|
|
|
|
# ############################################################################
|
|
# Documentation
|
|
# ############################################################################
|
|
=pod
|
|
|
|
=head1 NAME
|
|
|
|
pt-align - Read lines and split them into words.
|
|
|
|
=head1 SYNOPSIS
|
|
|
|
Usage: pt-align [OPTION...]
|
|
|
|
=head1 DESCRIPTION
|
|
|
|
This program reads in lines and splits them into words. It counts how many
|
|
words each line has, and if there is one number that predominates, it assumes
|
|
this is the number of words in each line. Then it discards all lines that
|
|
don't have that many words, and looks at the 2nd line that DOES. It assumes
|
|
this is the first non-header line. Based on whether each word looks numeric
|
|
or not, it decides on column alignment. Finally, it goes through and decides
|
|
how wide each column should be, and then prints them out.
|
|
|
|
This is useful for things like aligning the output of vmstat or iostat so it
|
|
is easier to read.
|
|
|
|
=head1 DOWNLOADING
|
|
|
|
Visit L<http://www.percona.com/software/> to download the latest release of
|
|
Percona Toolkit. Or, to get the latest release from the command line:
|
|
|
|
wget percona.com/latest/percona-toolkit/PKG
|
|
|
|
Replace C<PKG> with C<tar>, C<rpm>, or C<deb> to download the package in that
|
|
format. You can also get individual tools from the latest release:
|
|
|
|
wget percona.com/latest/percona-toolkit/TOOL
|
|
|
|
Replace C<TOOL> with the name of any tool.
|
|
|
|
=head1 ENVIRONMENT
|
|
|
|
The environment variable C<PTDEBUG> enables verbose debugging output to STDERR.
|
|
To enable debugging and capture all output to a file, run the tool like:
|
|
|
|
PTDEBUG=1 pt-align ... > FILE 2>&1
|
|
|
|
Be careful: debugging output is voluminous and can generate several megabytes
|
|
of output.
|
|
|
|
=head1 SYSTEM REQUIREMENTS
|
|
|
|
You need Perl, DBI, DBD::mysql, and some core packages that ought to be
|
|
installed in any reasonably new version of Perl.
|
|
|
|
=head1 BUGS
|
|
|
|
For a list of known bugs, see L<http://www.percona.com/bugs/pt-align>.
|
|
|
|
Please report bugs at L<https://bugs.launchpad.net/percona-toolkit>.
|
|
Include the following information in your bug report:
|
|
|
|
=over
|
|
|
|
=item * Complete command-line used to run the tool
|
|
|
|
=item * Tool L<"--version">
|
|
|
|
=item * MySQL version of all servers involved
|
|
|
|
=item * Output from the tool including STDERR
|
|
|
|
=item * Input files (log/dump/config files, etc.)
|
|
|
|
=back
|
|
|
|
If possible, include debugging output by running the tool with C<PTDEBUG>;
|
|
see L<"ENVIRONMENT">.
|
|
|
|
=head1 AUTHORS
|
|
|
|
Baron Schwartz
|
|
|
|
=head1 ABOUT PERCONA TOOLKIT
|
|
|
|
This tool is part of Percona Toolkit, a collection of advanced command-line
|
|
tools developed by Percona for MySQL support and consulting. Percona Toolkit
|
|
was forked from two projects in June, 2011: Maatkit and Aspersa. Those
|
|
projects were created by Baron Schwartz and developed primarily by him and
|
|
Daniel Nichter, both of whom are employed by Percona. Visit
|
|
L<http://www.percona.com/software/> for more software developed by Percona.
|
|
|
|
=head1 COPYRIGHT, LICENSE, AND WARRANTY
|
|
|
|
This program is copyright 2010 Baron Schwartz, 2011 Percona Inc.
|
|
Feedback and improvements are welcome.
|
|
|
|
THIS PROGRAM IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED
|
|
WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
|
|
MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
|
|
|
|
This program is free software; you can redistribute it and/or modify it under
|
|
the terms of the GNU General Public License as published by the Free Software
|
|
Foundation, version 2; OR the Perl Artistic License. On UNIX and similar
|
|
systems, you can issue `man perlgpl' or `man perlartistic' to read these
|
|
licenses.
|
|
|
|
You should have received a copy of the GNU General Public License along with
|
|
this program; if not, write to the Free Software Foundation, Inc., 59 Temple
|
|
Place, Suite 330, Boston, MA 02111-1307 USA.
|
|
|
|
=head1 VERSION
|
|
|
|
Percona Toolkit v1.0.0 released 2011-08-01
|
|
|
|
=cut
|