ASH Planning: おっぱいスクリプト with AppleScript

ゆけ。リビドーの赴くままに。

...もう旬が過ぎた気もするし、三連休が終わって明日から仕事なんだろうけど AppleScript によるおっぱいスクリプトの実装を。

他の言語ではどのように実装されているか、といったことを比べながら読むと AppleScript の長所や短所がよく分かる気がします。

最大の違いはどの言語も最初からライブラリが豊富だったり、追加できたり...と。AppleScript は他の言語がライブラリを利用して実装している部分をすべて自分で作らなければだめなのです。ゆえに、コードが長い...。

なんの奇もてらっていないので、AppleScript をこれから覚えるんだ！といった中学、高校生以外にはなんの面白みもないものになっていますのであしからず。

Yahoo の検索 API を使っているので、Yahoo!デベロッパーネットワークで登録して、アプリケーション ID を取得しておいてください。

property APP_ID : "ここに Yahoo のアプリケーション ID を入れてちょ"
property API_URL : "http://search.yahooapis.jp/ImageSearchService/V2/imageSearch"
property SEARCH_WORD : "おっぱい"

on run
    main()
end run

on main()
    set my SEARCH_WORD to text returned of (display dialog "Enter search word:" default answer SEARCH_WORD with icon 1)
    set dataFolder to choose folder

    set pageCount to 1
    set downloadCount to 1

    repeat until pageCount is greater than 20
        set queryList to {{"appid", APP_ID}, {"query", SEARCH_WORD}, {"results", "20"}, {"adult_ok", "1"}, {"format", "jpeg"}, {"site", "tumblr.com"}, {"type", "any"}, {"start", ((pageCount - 1) * 20 + 1) as text}}

        set theURL to my makeQuery(queryList)
        set xml to my urlopen(API_URL & "?" & theURL)
        set xmlDocument to my openXML(xml)
        set root to my getFirstNode(xmlDocument)

        if my getNodeName(root) is "ResultSet" then
            repeat with thisItem in my getElementsByTagName("Result", root)
                set imageURL to my getFirstNodeTextByTagName("Url", thisItem)
                my downloadFile(imageURL, dataFolder)
                set downloadCount to downloadCount + 1
            end repeat
        end if
        set pageCount to pageCount + 1
    end repeat
end main

on encodeURL(theText)
    try
        return do shell script "python -c \"import sys,urllib; print urllib.quote(sys.argv[1])\" " & quoted form of theText
    on error mes number num
        return {num, mes}
    end try
    return theText
end encodeURL

on urlopen(thisURL)
    try
        set theResult to do shell script "curl " & quoted form of thisURL
    on error msg number num
        set theResult to {msg, num}
    end try

    return theResult
end urlopen

on downloadFile(fileURL, downloadFolder)
    do shell script "cd " & quoted form of (POSIX path of downloadFolder) & ";curl -O -L " & quoted form of fileURL
end downloadFile

on makeQuery(queryList)
    set theList to {}
    repeat with thisItem in queryList
        set thisItem to {item 1 of thisItem, my encodeURL(item 2 of thisItem)}
        set end of theList to my join(thisItem, "=")
    end repeat

    return my join(theList, "&")
end makeQuery

on join(theList, delimiter)
    tell (a reference to text item delimiters)
        set {tid, contents} to {contents, delimiter}
        set {theText, contents} to {theList as text, tid}
    end tell

    return theText
end join

on openXML(theFile)
    tell application "System Events"
        delete every XML data
        set xmlDocument to ""
        try
            set xmlDocument to contents of XML file theFile
        on error msg number num
            if num is -1728 then
                if (class of theFile) is text then
                    set xmlDocument to make new XML data with properties {text:theFile}
                else
                    return {num, msg}
                end if
            else
                return {num, msg}
            end if
        end try
    end tell

    return xmlDocument
end openXML

on getFirstNode(xmlDocument)
    tell application "System Events"
        return first XML element of xmlDocument
    end tell
end getFirstNode

on getNodeName(node)
    tell application "System Events"
        return name of node
    end tell
end getNodeName

on getElementsByTagName(tagName, node)
    tell application "System Events"
        if exists (XML elements of node whose name of it is tagName) then
            return XML elements of node whose name of it is tagName
        else
            return missing value
        end if
    end tell
end getElementsByTagName

on getFirstNodeTextByTagName(tagName, node)
    tell application "System Events"
        if exists (XML elements of node whose name of it is tagName) then
            set firstNode to my getFirstNodeByTagName(tagName, node)
            set nodeText to value of firstNode
            try
                nodeText
            on error
                return ""
            end try
        else
            return ""
        end if
    end tell
end getFirstNodeTextByTagName

on getFirstNodeByTagName(tagName, node)
    tell application "System Events"
        if exists (XML elements of node whose name of it is tagName) then
            return (first item of (XML elements of node whose name of it is tagName))
        else
            return missing value
        end if
    end tell
end getFirstNodeByTagName

140 行ほどですか。長いですね。長いです。このハンドラでまとめている部分のほとんどが、他の言語ではライブラリとして用意されていたりします。ファイルのダウンロードすら現在では OSAX がなくなり、AppleScript では処理できないですからね。

健全な青少年も利用できるように検索語句は利用者が入力できるようにしています。

改良できる部分は多々あると思います。現状、リクエストに対しエラーが返ってきたら無視しているので、結果が返ってくるまでリクエストを繰り返してもいいと思います。また、画像の大きさを調べて小さいものはダウンロードしないといったことをしてもいいかも。

では、また。

Download Oppai.scpt.zip/11KB

ASH Planning

おっぱいスクリプト with AppleScript

0 件のコメント :

コメントを投稿