将压缩文件上传到Clojure中的S3

(ns your-namespace
  (:import (com.amazonaws.auth.profile ProfileCredentialsProvider)
           (com.amazonaws.regions Regions)
           (com.amazonaws.services.s3 AmazonS3Client)
           (com.amazonaws.services.s3.model PutObjectRequest)))

(defn create-s3-client []
  (let [credentials-provider (ProfileCredentialsProvider. "your-profile-name")
        region (Regions/US_WEST_2) ; 根据你的需求选择合适的区域
        s3-client (AmazonS3Client. credentials-provider)]
    (.withRegion s3-client region)
    s3-client))

(defn upload-file-to-s3 [bucket-name key file-path]
  (let [s3-client (create-s3-client)
        put-object-request (PutObjectRequest. bucket-name key (java.io.File. file-path))]
    (.putObject s3-client put-object-request)))

(upload-file-to-s3 "your-bucket-name" "your-file-key" "/path/to/your/file.zip")