Base64로 인코딩된 문자열을 바이너리로 바꾸는 perl code

지난 번에 이어서 이번에는 Base64로 된 것을 바로 풀어 봅시다.

$ cat x
64u57Iug7J2AIOuCmOuKlCDrsJTrs7TsnoXri4jri6QK7J6Q7KG07IusIOuVjOusuOyXkArsiKDq
s7wg7JO0IOuLtOuwsOyXsOq4sOuhnCDrp53qsIDsp4Dqs6Ag7J6I7KOgCuuLueyLoOydgCDrgpjr
ipQg67CU67O07J6F64uI64ukCuyVhOyngSDsgqzrnpHtlZjquLDsl5Ag7ZWY66OoIOyiheydvCDt
jpHtjpEg7Jq46rOg66eMIOyeiOyjoArqt7jrjIDrj4Qg64KY64+EIOuqqOuRkCDrsJTrs7Tsspjr
n7wK

요렇게 되어 있는 파일을 decoding 하려면,

perl -mMIME::Base64 -e 'while(<>){print MIME::Base64::decode_base64($_)}'

-m 으로 Module을 불러 들이고, 그 모듈안에 있는 decode_base64를 불러주는 것으로 땡...

너무 쉬웠나..