while ( my $line = <STDIN>)

to

while ( my $line = )

1) Save the results of the last query
2) Replace EXPLAIN with mk-visual-explain

Unfortunately, MySQL 5.0.51a and earlier writes to the tee file AFTER the pager has completed (and to .mysql_history only after you exit mysql), so getting the last command is impossible via these methods (however, it works if you are willing to issue queries twice …). You *can* still override commands (EXPLAIN, for example) by having scripts that error if the input does not conform to a standard; an example follows:

#!/usr/bin/perl

use strict;
use warnings FATAL => ‘all’;
use English qw ( -no_match_vars );

my $out;

while ( my $line = ) {

$out .= $line;

}

# Log results to a file (always useful)
# But only ever save one
open (PAGER_LOG, ‘>/tmp/mysql_pager.log’);
print PAGER_LOG “$out\n”;
close (PAGER_LOG);

# See if it an EXPLAIN
eval { local $SIG{‘__WARN__’}; system(‘/usr/local/bin/mk-visual-explain /tmp/mysql_pager.log 2> /dev/null’); };

if ($?) {

print $out;

}

superpager.bash:

#!/bin/bash
teefile=~/.mysqltee

goback=100

# find the last ^mysql>

lastcmd=$(tail -n $goback $teefile | grep “^mysql> “|tail -1| awk -F”mysql> ” ‘{print $2}’|sed -e ‘s/\*/\\*/g’)

echo lastcmd=$lastcmd

if echo “$lastcmd” | egrep -qi “^\s*explain” ; then
exec mk-visual-explain
fi
if echo “$lastcmd” | egrep -qi “^\s*show\s+engine” ; then
fgrep -C3 -i “LOCK” | less
exit
fi
less

One has to do a \T ~/.mysqltee before the \P superpager.bash , but thats nice because everything you do gets logged..

Works reasonably well for something I hacked together with bash in 10 minutes. Would be nice if the pager could be passed args like “last command” but this is a decent enough hack until they implement that in version 6.1 of mysql.

pager grep -v “Sleep” |sort -n -t “|” -k 7 |tail

show processlist will now suppress sleeping sessions and display the top 10 oldest sessions.

Thanks for the tip on passing any script… very nice. I have interesting tests to try out… or just use mytop eh?

Have Fun

Paul

Next, I would like to see some regex based piping that I can specify in my.cnf, something like

pager ^explain = mk-visual-explain
pager ^show engine = less
pager .* = stdout

I dont think I’m asking too much

–
Parvesh

I have a handy script that gives me the size of indexes in a database from a SHOW TABLE STATUS. (Useful when you need to calculate how much memory to allocate for a buffer).

$ cat index_size.sh
perl -lane ‘$i+= $F[17];END{print $i}’

mysql> pager ./index_size.sh
PAGER set to ‘./index_size.sh’
mysql> show table status;
71680

mysql> nopager

Giuseppe