Fandom

Vim Tips Wiki

Decode MIME text using Perl in Vim

1,624pages on
this wiki
Add New Page
Talk0 Share

Ad blocker interference detected!


Wikia is a free-to-use site that makes money from advertising. We have a modified experience for viewers using ad blockers

Wikia is not accessible if you’ve made further modifications. Remove the custom ad blocker rule(s) and the page will load as expected.

Duplicate tip

This tip is very similar to the following:

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

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 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 my $foo=VIM::Eval(foo); my ($r, $c)=$curwin->Cursor(); $curbuf->Append($r-1, split '\n', MIME::QuotedPrint::decode_qp($foo));

CommentsEdit

Also on Fandom

Random Wiki