A Continental Perl Adventure Day One 32 of 96 : [PREV] [NEXT]

Source Filters

rot13 example

package Rot13;
use Filter::Util::Call;

sub import {
    my ($type, @arguments) = @_;
    my $result = "";

    filter_add(
        sub {
            my $status = filter_read();
            if($status >= 0) {
                tr/A-Za-z/N-ZA-Mn-za-m/;
            }
            return $status;
        } );
}

1;
© 2003 Barbie barbie@missbarbell.co.uk Home http://birmingham.pm.org/