Skip to content

Instantly share code, notes, and snippets.

@hirataya hirataya/base64
Created Feb 2, 2016

Embed
What would you like to do?
perl -e 'undef $/; $_ = <>; $p = (3 - (length)%3)%3; $_ = pack "u", $_; s/^.//mg; tr|` -_|AA-Za-z0-9+/|; s/A{$p}\n$/"="x$p."\n"/se; print' somefile
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.