2007年1月12日 星期五

Yahoo!奇摩字典 command line version

http://plog.longwin.com.tw/programming/2007/01/12/y_dictionary_script_2007
看到一段有趣的 perl script



不過似乎一次只能查詢一個單字

於是我自己又加了一個 wrapper 上去... :P
#!/bin/sh
# FourDollars
# 2007/01/12
skip=15

function func_dict ()
{
for i in $*; do
perl -e "`tail -n +$skip $0`" $i
done
}

func_dict $* | less -r -F
exit
#!/usr/bin/perl
# Yen-Ming Lee...
...
...

這樣一來就可以一次查詢多個單字

還可以 page up, page down

不過後來又發現弄個 shell like 的界面比較好用... XD
#!/bin/sh
# FourDollars
# 2007/01/12
skip=23

function func_dict ()
{
for i in $*; do
perl -e "`tail -n +$skip $0`" $i
done
}

while :; do
echo -n "<Yahoo!奇摩字典> "
read word
if [ -z "$word" ]; then
echo
exit
fi
func_dict "$word" | less -r -F

done
exit
#!/usr/bin/perl
# Yen-Ming Lee...
...
...

哈... 後來又把兩種方式合併在一起用... :P
#!/bin/sh
# FourDollars
# 2007/01/12
skip=27

function func_dict ()
{
for i in $*; do
perl -e "`tail -n +$skip $0`" $i
done
}

if [ -z "$*" ]; then
while :; do
echo -n "<Yahoo!奇摩字典> "
read word
if [ -z "$word" ]; then
echo
exit
fi
func_dict "$word" | less -r -F
done
else
func_dict $* | less -r -F
fi
exit
#!/usr/bin/perl
# Yen-Ming Lee...
...
...
張貼留言