Skip to content

Instantly share code, notes, and snippets.

@akirad

akirad/addMailQuote.pl

Last active March 27, 2016 02:39
Show Gist options
  • Save akirad/04d78f2183a3ca2cdc90 to your computer and use it in GitHub Desktop.
Save akirad/04d78f2183a3ca2cdc90 to your computer and use it in GitHub Desktop.
Download ZIP
This script just adds "> " to the text message from clipboard and set the result to clipboard.
Raw
addMailQuote.pl
use strict;
use warnings;
use Win32::Clipboard;
my $clip = Win32::Clipboard();
my $text = $clip->GetText();
$text =~ s/^/> /mg;
$clip->Empty();
$clip->Set($text);
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment