diff options
-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'); |