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...
...
...