1#@!#!123s

: / usr / lib64 / perl5 / vendor_perl / Filter /

Filename : exec.pm

back

package Filter::exec ;

use Filter::Util::Exec ;
use strict ;
use warnings ;

our $VERSION = "1.58" ;

sub import
{
    my($self, @args) = @_ ;

    unless (@args) {
        require Carp;
        Carp::croak("Usage: use Filter::exec 'command'");
    }

    Filter::Util::Exec::filter_add($self, @args) ;
}

1 ;
__END__

=head1 NAME

Filter::exec - exec source filter

=head1 SYNOPSIS

    use Filter::exec qw(command parameters) ;

=head1 DESCRIPTION

This filter pipes the current source file through the program which
corresponds to the C<command> parameter.

As with all source filters its scope is limited to the current source
file only. Every file you want to be processed by the filter must have a

    use Filter::exec qw(command ) ;

near the top.

Here is an example script which uses the filter:

    use Filter::exec qw(tr XYZ PQR) ;
    $a = 1 ;
    print "XYZ a = $a\n" ;

And here is what it will output:

    PQR = 1

=head1 WARNING

You should be I<very> careful when using this filter. Because of the
way the filter is implemented it is possible to end up with deadlock.

Be especially careful when stacking multiple instances of the filter in
a single source file.

=head1 AUTHOR

Paul Marquess 

=head1 DATE

11th December 1995.

=cut

Name	Size	Last Modified	Owner	Permissions
Util	Dir	July 28 2023 2:59:48	root	0755
cpp.pm	2.135 KB	November 15 2017 9:08:16	root	0644
decrypt.pm	2.929 KB	November 15 2017 9:08:16	root	0644
exec.pm	1.227 KB	November 15 2017 9:08:16	root	0644
sh.pm	1.36 KB	November 15 2017 9:08:16	root	0644
tee.pm	0.774 KB	November 15 2017 9:08:16	root	0644

2017 © D7net \| D704T team