jarohen/delete-objects.clj

Created September 27, 2013 10:22

Star (0) You must be signed in to star a gist
Fork (0) You must be signed in to fork a gist

Select an option

Learn more about clone URLs
Clone this repository at <script src="https://gist.github.com/jarohen/6726595.js"></script>
Save jarohen/6726595 to your computer and use it in GitHub Desktop.

Download ZIP

Deleting all objects in an S3 bucket, from Clojure (probably in a very inefficient way - sorry.)

Raw

delete-objects.clj

-(loop []
-    (when-let [objs (seq (map :key (:objects (aws.sdk.s3/list-objects (aws-creds) bucket))))]
-      (println "Deleting 1000 objs")
-      (dorun (pmap #(aws.sdk.s3/delete-object (aws-creds) bucket %) objs))
-      (recur)))

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment