#$@%#$%!

Ngiler SH3LL 360
: / proc / thread-self / root / lib64 / perl5 / vendor_perl / Filter /

Information Server
MySQL : OFF Perl : OFF CURL : ON WGET : OFF PKEXEC : OFF

Directive	Local Value
IP Address	162.0.209.101
System	Linux premium169.web-hosting.com 4.18.0-553.50.1.lve.el8.x86_64 #1 SMP Thu Apr 17 19:10:24 UTC 2025 x86_64
User	luxeelil
PHP Version	8.0.30
Software	LiteSpeed
Doc root	Writable

Edit File : sh.pm \| Size : 1.36 KB
package Filter::sh; 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::sh 'command'"); } if ($^O eq 'MSWin32') { Filter::Util::Exec::filter_add ($self, 'cmd', '/c', "@args") ; } else { Filter::Util::Exec::filter_add ($self, 'sh', '-c', "@args") ; } } 1 ; __END__ =head1 NAME Filter::sh - sh source filter =head1 SYNOPSIS use Filter::sh 'command' ; =head1 DESCRIPTION This filter pipes the current source file through the program which corresponds to the C<command> parameter using the Bourne shell. 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::sh 'command' ; near the top. Here is an example script which uses the filter: use Filter::sh '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 Back

Edit File : sh.pm | Size : 1.36 KB

package Filter::sh;
 
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::sh 'command'");
    }

if ($^O eq 'MSWin32') {
        Filter::Util::Exec::filter_add ($self, 'cmd', '/c', "@args") ; 
    }
    else {
        Filter::Util::Exec::filter_add ($self, 'sh', '-c', "@args") ; 
    }
}

1 ;
__END__

=head1 NAME

Filter::sh - sh source filter

=head1 SYNOPSIS

use Filter::sh 'command' ;

=head1 DESCRIPTION

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

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::sh 'command' ;

near the top.

Here is an example script which uses the filter:

use Filter::sh '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

Back