Clojure를 사용하여 base64 인코딩 파일을 원래 형식으로 디코딩

Question

base64로 인코딩 된 파일을 원래 형식으로 다시 변환하여 디스크에 기록하는 방법은 무엇입니까? 예를 들어 mime64로 인코딩 된 pdf 파일이 있습니다. 파일은 다음으로 시작합니다.

data:application/pdf;base64,JVBER 

이 파일을 적절한 형식으로 디스크에 기록하고 싶습니다. 스트링을 바이트 배열로 디코딩하는 여러 라이브러리 (예 : ring.util.codec)를 시도했지만 파일에 결과 바이트 배열을 쓰면 (spit 사용) 파일이 손상된 것처럼 보입니다.

UPDATE :

는 문자열을 반환과 같이 PHP 함수 base64_decode, 내가 무엇을 찾고 일을 할 나타납니다

. Java에서 동등한 기능은 무엇입니까?

Answer 1

Clojure에는 data.codec (이전의 clojure-contrib)이 있습니다.

사용하여 자바 상호 운용성 :

Java8와

• 는, Java6와 java.util.base64
• 를 참조 javax.xml.bind.DatatypeConverter/parseBase64Binary 구글 구아바와
• javax.xml.bind.DatatypeConverter/printBase64Binary이, 아파치 커먼즈 도서관 1.1.0로 com.google.common.io.BaseEncoding
• 를 참조 참조 org.apache.commons.codec.binary.Base64

그래서 ose는 이미지를 사용할 때 사용하는 도우미 함수입니다. data.codec :

(require '[clojure.data.codec.base64 :as b64-codec]) 

(defn write-img! [id b64] 
    (clojure.java.io/copy 
    (decode-str (chop-header b64)) 
    (java.io.File. (str "/Users/nha/tmp/" id "." (b64-ext b64))))) 

(defn decode-str [s] 
    (b64-codec/decode (.getBytes s))) 

(defn in? 
    "true if the seq coll contains the element el" 
    [coll el] 
    (some #(= el %) coll)) 

(defn b64-ext [s] 
    (if-let [ext (second (first (re-seq #"data:image/(.*);base64.*" s)))] 
    (if (in? ["png" "jpeg"] ext) 
     ext 
     (throw (Exception. (str "Unsupported extension found for image " ext)))) 
    (throw (Exception. (str "No extension found for image " s))))) 

(defn chop-header [s] 
    (nth (first (re-seq #"(data:image/.*;base64,)(.*)" s)) 2)) 

Answer 2

모든 자바 라이브러리가 여기에 아파치 코 몬즈에서, one입니다 (작동해야합니다, 여기에 내가이 내용이 어떤 인코딩을 사용하여 문자열로 변환 할 수있다 바이트를 의미, 어떻게 든 수정하고 노력하고 의심 Clojure-contrib

에서 완전히 Clojure의 하나있어 다른 인코딩을 사용하여이 문자열을 바이트로 다시 읽으십시오.

첫 번째 단계는 서버 측 파일의 파일과 읽는 파일의 바이트 수가 정확히 같은지 확인하는 것입니다. 또한 체크섬 (MD5)이 같은지 확인하십시오.

어쨌든 PDF 파일은 이진 파일이므로 어디서나 스트링으로 변환해서는 안됩니다.