タイのネットワークが遅く、バックアップに思いっきり時間掛かってしまったがやっと終わった。

Prime会員だと写真のバックアップは無料になるということなのでバックアップしてみたところ2014(半年分)、2015、2016(1月分のみ)で331GBとなった。

Lightroomの管理ファイルが254MBあるが5GBまで余裕あるのでこれで無料枠で当分運用できそう。

現在はAWS S3に写真を保存しているが毎月10USD程度かかっているのでなんとかしたいと思っていたけど良いサービスがなかったがコレは良いかもしれない。

Amazon、容量無制限の写真保存サービス「プライム・フォト」 – デジカメ Watch

現在、AWS S3に月単位でzipにまとめたものをアップしていて毎月10USD程度かかっていて年間にすると現在で120USDかかることになる。現在、年間に300GB程度写真を撮っているが今のペースで増え続けると数年後には・・・大変な事になる。コレは早急になんとかしたい。

GoogleフォトもあったがRAWに対応しておらずあっちは専らスマホで撮った画像の保存用として使っている。確かにGoogleフォトの検索や勝手にタグ付けしてくれる機能は便利だがバックアップ用途としてはいまいち。

帰ったら早速写真をアップしてみよう。

今作っているサービスで少し使ってみたので、メモしておきます。

使い方は至って簡単で、

(use 'am.ik.clj-aws-ecs)
(def requester (make-requester "ecs.amazonaws.jp" "YOUR-ACCESS-KEY-ID" "YOUR-ACCESS-SECRET-KEY"))
(item-search-map requester "SearchIndex" "KEYWORD")

商品カテゴリーの指定(SearchIndex) – 商品検索(ItemSearch) – Amazon Web サービス

SearchIndex一覧については上記のページに書いています。

clj-aws-ecs | Clojars

clojars.orgにも登録されているので、project.cljに下記のように登録すれば簡単に使えるようになります。

[am.ik/clj-aws-ecs "0.1.0"]

ただ、ECSの戻り値がXMLで、item-search-mapの構造はXMLをそのままMapに変換した構造になっているため、その値を使って何かに利用する時に面倒なので、簡易的ですが、下記のようなコードを書いてXMLベースのMapから値を抜き出す処理を書きました。

(defn ecs-attr-value
  ([attrs tag] (ecs-attr-value attrs tag true))
  ([attrs tag first-only]
   (if (empty? attrs)
     nil 
     (let [attr (first attrs)
           attr-tag (:tag (first attrs))]
       (if (= tag attr-tag)
         (if first-only
           (first (:content attr))
           (:content attr))
         (recur (next attrs) tag first-only))))))

(defn ecs-item-attrs-parse
  [item attrs]
  (if (empty? attrs)
    item
    (let [attr (first attrs)]
      (def attr-value
        (cond
          (= (:tag attr) :ASIN) {:ASIN (first (:content attr))} 
          (= (:tag attr) :ItemAttributes) {:Title (ecs-attr-value (:content attr) :Title)} 
          (= (:tag attr) :SmallImage) {:SmallImage (ecs-attr-value (:content attr) :URL)} 
          (= (:tag attr) :MediumImage) {:MediumImage (ecs-attr-value (:content attr) :URL)} 
          (= (:tag attr) :LargeImage) {:LargeImage (ecs-attr-value (:content attr) :URL)} 
          (= (:tag attr) :DetailPageURL) {:DetailPageURL (first (:content attr))}))
      (recur (if (nil? attr-value) item (conj item attr-value)) (next attrs)))))

(defn ecs-item-parse [items xml-items] 
  (if (empty? xml-items)
    items
    (recur 
      (conj items (ecs-item-attrs-parse {} (:content (first xml-items)))) 
      (next xml-items))))

(defn ecs-item-search [search-index keywords]
  (ecs-item-parse [] (filter 
                       #(= :Item (% :tag))
                       (:content 
                         (first 
                           (filter 
                             #(= :Items (% :tag))
                             (:content (item-search-map 
                                         requester 
                                         search-index 
                                         keywords 
                                         {"AssociateTag" "example-22"
                                          "ResponseGroup" "Medium"}))))))))

自分は回線の弱い中国にいるので実際にどれくらい早くなったのかいまいちわかりませんが、それでも前より描画が早くなったような気がします。

これで、自分のサイトが急激に大きくなってもスケーラビリティのあるEC２やその他のサービスを利用することが可能になります。まぁ、当分はMicro Instanceのみで充分だと思いますが＾＾；