Quoting James Fishwick fishwick.hmco@gmail.com:

I'm trying to write a snippet that will erase

*everything within inclosing tags and *everything with enclosing tags including the tags themselves.

So far I've got `perl -e 's/<${TM_SELECTED_TEXT}>(\n|.)+?/</${TM_SELECTED_TEXT}>//g'`,

Try this:

Replace `perl -e 's/<${TM_SELECTED_TEXT}>(\n|.)+?/</${TM_SELECTED_TEXT}>//g'`

with this:

#!/usr/bin/perl -X binmode STDIN, ':utf8'; binmode STDOUT, ':utf8'; $tag = $ENV{'TM_SELECTED_TEXT'}; $data=""; while(<>){$data.=$_} $data=~s/<$tag>(\n|.)+?</$tag>//mg; print $data;

Some hints: - if you are dealing with multiple lines in regexp you have to use s///m - typo, you have s//// - ${TM_SELECTED_TEXT} doesn't work for me - if you call perl via -e etc. it will parse your STDIN line by line

Cheers,

Hans

BTW a good idea ;)

---------------------------------------------------------------- This message was sent using IMP, the Internet Messaging Program.