diff options
author | Jesse Luehrs <doy@tozt.net> | 2012-02-24 02:00:14 -0600 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2012-02-24 02:00:14 -0600 |
commit | f523d0f3c07c4a8b8a909f100ec8a76f8fddb0e6 (patch) | |
tree | 9f431ca6991722bbed369bf36c53b7f459ebe722 /examples/nethack | |
parent | 002401c07eec06c5cbd1a5538c44d8781954e173 (diff) | |
download | term-filter-f523d0f3c07c4a8b8a909f100ec8a76f8fddb0e6.tar.gz term-filter-f523d0f3c07c4a8b8a909f100ec8a76f8fddb0e6.zip |
basic usage example, for testing
Diffstat (limited to 'examples/nethack')
-rw-r--r-- | examples/nethack | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/examples/nethack b/examples/nethack new file mode 100644 index 0000000..eeef69b --- /dev/null +++ b/examples/nethack @@ -0,0 +1,22 @@ +#!/usr/bin/env perl +use strict; +use warnings; + +use Term::Filter; + +my $term = Term::Filter->new( + callbacks => { + munge_input => sub { + my ($event, $got) = @_; + $got =~ s/\ce/E- Elbereth\n/g; + $got; + }, + munge_output => sub { + my ($event, $got) = @_; + $got =~ s/(Elbereth)/\e[35m$1\e[m/g; + $got; + }, + }, +); + +$term->run('nethack'); |