Unix 辞書ソフト総合スレッド 第二版

[269 264 05/03/20 13:48:39]

>>268
書ける人なのね。

#!/usr/bin/expect --
log_user 0
spawn -noecho eblook /home/foo/dict/readers
send "select 1\r"
send "search [lindex $argv 0]\r"
expect -re "(\[0-9a-f]*:\[0-9a-f]*)" {
send "content $expect_out(0,string)\r"
send "quit\r"
}
expect "content"
expect "quit"
interact eof exit


あとはreference追うなど随意に。