#!/usr/bin/perl use DB_File; $kw = shift( @ARGV ); exit unless $kw; tie %p, DB_File, 'mume.db'; $tmp = "/tmp/dbe.$$"; open( TMP, ">$tmp" ); print TMP $p{ $kw }; close TMP; system( "vi", $tmp ); open( TMP, $tmp ); $p{ $kw } = join( "", ); close( TMP ); $p{ $kw } =~ s/\n+$//s; unlink( $tmp );