Decode MIME text using Perl in Vim

Duplicate tip

This tip is very similar to the following:

VimTip1134

These tips need to be merged – see the merge guidelines.

Please review this tip:

This tip was imported from vim.org and needs general review.
You might clean up comments or merge similar tips.
Add suitable categories so people can find the tip.
Please avoid the discussion page (use the Comments section below for notes).
If the tip contains good advice for current Vim, remove the {{review}} line.

Tip 1032 Printable Monobook Previous Next

created 2005 · complexity intermediate · author Suresh Govindachar · version 6.0

Requires: Vim 6.x with Perl support. Uses Perl module MIME::Base64.

If you have MIME Base64 or Quoted-Printable encoded text in a Vim buffer, the following commands can be used to replace the encoded lines with their decoded information. Just visually select the lines corresponding to the encoded text and issue the appropriate command (:Decode64 or :DecodeQP).

command! -range=% Decode64 :w | <line1>,<line2>delete | let foo = @"
 \| perl use MIME::Base64 (); my $foo=VIM::Eval(foo); my ($r, $c)=$curwin->Cursor(); $curbuf->Append($r-1, split '\n', MIME::Base64::decode($foo));

command! -range=% DecodeQP :w | <line1>,<line2>delete | let foo = @"
 \| perl use MIME::QuotedPrint (); my $foo=VIM::Eval(foo); my ($r, $c)=$curwin->Cursor(); $curbuf->Append($r-1, split '\n', MIME::QuotedPrint::decode_qp($foo));

Decode MIME text using Perl in Vim

Comments[]