plutilと言うコマンドを使って、サファリのBookmarks.plist をxmlに変換して、
デスクトップのxmlを読み込み perl で「feed:」のついている行を取り出します。
最後にクリップボードにアドレスをコピー
元のファイルをいじるのはあれなので、ユーザー名/Library/Safari/にある
Bookmarks.plistをデスクトップにコピーしてから実行してください。
set a1 to (path to current user folder)’s POSIX path
set a2 to a1 & “Desktop/Bookmarks.plist” as Unicode text
set a3 to a1 & “Desktop/Bookmarks.xml” as Unicode text
do shell script “plutil -convert xml1 ” & quoted form of a2 & ” -o ” & quoted form of a3
delay 3
set a4 to do shell script “cat ” & quoted form of a3 & ” | grep ‘feed:’ | perl -pe ‘s/.*<string>feed:https:/https:/g;s/.*<string>feed:/http:/g;s/<\\/string>$//g'”
set the clipboard to a4
