予期せず本番DBを更新してしまわないようにするためのwrapper 本物のmysqlよりもPATHの先頭にくるようにしておく。 DBを更新したいときは /usr/bin/msql とfull pathで起動する。

mysql client wrapper

#!/usr/bin/perl

use strict;
use warnings;

use Expect;

my $MYSQL_COMMAND = '/usr/bin/mysql';

my $expect = new Expect;
$expect->raw_pty(1);
$expect->debug(0);
$expect->spawn($MYSQL_COMMAND, @ARGV) or die "Cannot spawn $MYSQL_COMMAND: $!\n";

while($expect->pid){
    my $is_prompt_shown = 0;
    my @ret = $expect->expect(1,
                    [ qr/(^|\n|\007)\s*->\s*/i  => sub { }, ],
                    [ qr/(^|\n|\007)mysql>\s*/i => sub { $is_prompt_shown = 1; }, ],
                );
    my $input = <STDIN>;
    if($is_prompt_shown){
        if($input =~ /^\s*\n/){ # empty
            $input = " \n";
        }elsif($input !~ /^\s*(select|show|desc|quit)/i){
            chomp($input);
            warn "forbidden[$input]\n";
            $input = " \n";
        }
    }
    $expect->send($input);
}