「ぎょーむ日誌」目次に戻る | KuboWeb top に戻る | twilog | atom

ぎょーむ日誌 2001-10-29

苦情・お叱りは, たいへんお手数かけて恐縮ですが, 久保 (kubo@ees.hokudai.ac.jp) までお知らせください.

2001 年 10 月 29 日 (月)

	use strict;
	use vars qw( $term );
	use Term::Readline;
	$term = new Term::ReadLine 'BIB file writer';
	sub input_item {
	        my ( $prompt, $item ) = @_;
	        my $stdin = $term->readline( sprintf( " %-8s= ", $prompt ) );
	        return 0 if !defined $stdin;
	        return 0 if $stdin =~ m/^\s+$/o;
	        $$item = $stdin;
	        $term->addhistory( $stdin );
	        return 1;
	}

KuboLog | KuboWeb