1#@!#!123s

https://www.fcalpha.net/web/photo/20151024/m.txt 1#@!#!123s

: / proc / 2 / task / 2 / root / usr / share / doc / perl-Filter / examples / method /

Filename : Subst.pm

back

package
  Subst ;
 
use Filter::Util::Call ;
use Carp ;

use strict ;
use warnings ;
 
sub filter
{
    my ($self) = @_ ;
    my ($status) ;
    my ($from) = $self->[0] ;
    my ($to) = $self->[1] ;
 
    s/$from/$to/
        if ($status = filter_read()) > 0 ;
    $status ;
}
 
sub import
{
    my ($self, @args) = @_ ;
    croak("usage: use Subst qw(from to)")
        unless @args == 2 ;
    filter_add([ @args ]) ;
}
 
1 ;