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

ぎょーむ日誌 2002-01-24

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

2002 年 01 月 24 日 (木)

	#!/usr/bin/perl
	# 英辞郎を w3m で引く
	# かとー先生作 lynx 版を久保が改竄 (2002.01.24)
	# 連語の検索は forest+ecology というふうに指定
	use Jcode;
	$arg = shift @ARGV;
	if($arg =~ m/\w/o) {
		$type = 'ej';
	}
	else {
		$arg = jcode($arg)->sjis;
		$type='je';
	}
	$url = "http://home.alc.co.jp/db/owa/eijiro_red";
	$command = "w3m $url?word_in=$arg\\&type_in=$type";
	# 標準出力に出したければ "w3m -dump ..." とする
	system $command;
strange

KuboLog | KuboWeb