substitute.tcl v1.0, sed-style text substitution (s/foo/bar)

2010-10-05T10:38:31-04:00

It's awesome, I use it all the time

Statistics: Posted by spithash — Tue Oct 05, 2010 10:38 am

substitute.tcl v1.0, sed-style text substitution (s/foo/bar)

2010-10-05T12:01:21-04:00

This script provides sed style text subsitution, with full regular expression support. Use ".chanset #chan +substitute" to enable the script in a channel.

Notes:
Flags (i.e. global, case-insensitive) aren't supported directly in the syntax, however Tcl metasyntax can still be used. Expressions default to global/all, case-sensitive. Note that it's not possible to turn on or off global matching via metasyntax, this is because of a limitation in Tcl.

Usage examples:

Basic usage
Hello, World!
s/World/Everyone
Nick meant: "Hello, Everyone!"

With : instead of /
Hello, World!
s:World:Everyone
Nick meant: "Hello, Everyone!"

Removing text
Hello, World!
s/,/
Nick meant: "Hello World!"

Substitutions can be stacked indefinately
Hello, World!
s/l/w/s/o/u
Nick meant: "Hewwu, Wurwd!"

You can keep stacking over multiple messages
Hello, World!
s/World/Everyone
Nick meant: "Hello, Everyone!"
s/Everyone/Friday
Nick meant: "Hello, Friday!"

Regular expression
Hello, World!
s/[A-Z]/Y
Nick meant: "Yello, Yorld!"

More regular expression
Hello, World!
s/\S/x
Nick meant: "xxxxxx xxxxxx"

Metasyntax in action, turning on case insensitive matching:
Aaa Bbb
s/(?i)a/x/s/(?i)b/y
Nick meant: "xxx yyy"

Substitution guru:
:p
s/:/abc/s/p/defg/s/[ce]/^/s/d/o/s/a/\/s:g:/:s/b/(/s/f/)
Nick meant: "\(^o^)/"

Download: substitute-1.0.tcl

Statistics: Posted by Pixelz — Fri Oct 01, 2010 5:28 am

egghelp/eggheads community

substitute.tcl v1.0, sed-style text substitution (s/foo/bar)

substitute.tcl v1.0, sed-style text substitution (s/foo/bar)