Re^2: unpack blob

Instead of qx, echo and base64, you can use MIME::Base64 (in core since 5.8) and its decode_base64 function.

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,
[download]

Comment on Re^2: unpack blob Select or Download Code

Replies are listed 'Best First'.
Re^3: unpack blob by VinsWorldcom (Prior) on Jan 13, 2016 at 12:53 UTC
Obviously a better solution than my backticks and base64 system command. A quick Google turned up Mime::Base64 for base64 in Perl, I did not go a step further to see if it was in core and I knew it would not be CPAN module I had downloaded so didn't even try, assumed I didn't have it and rolled something quick. Thanks for the tip! Next time I'll check 'corelist' before backtick-ing out.	[reply]