35 lines
822 B
Perl
35 lines
822 B
Perl
|
#!/usr/bin/perl
|
||
|
|
|
||
|
|
# helps facilitate the applications of multiple filters in-line
|
||
|
|
# set as teh main vee-filter, and it will apply the stream to the
|
||
|
|
# set filters in the order listed
|
||
|
|
|
||
|
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
$|++;
|
||
|
|
|
||
|
|
# define filter dir here
|
||
|
|
my $FILTERDIR = "sample-filters/";
|
||
|
|
|
||
|
|
# add new filters to the list - note, they are run in top-down order
|
||
|
|
# warning - filters are not checked for existence first
|
||
|
|
my @FILTERS = (
|
||
|
|
"$FILTERDIR/vee-filter.sh",
|
||
|
|
"$FILTERDIR/vee-filter.pl",
|
||
|
|
,);
|
||
|
|
|
||
|
|
#
|
||
|
|
# automated from here on out - do not touch
|
||
|
|
#
|
||
|
|
my $FILTERS = join("|",@FILTERS);
|
||
|
|
my $out = "";
|
||
|
|
# loop over STDIN and capture qscript
|
||
|
|
while (<>) {
|
||
|
|
$out .= $_;
|
||
|
|
}
|
||
|
|
# open pipe to filters, execute
|
||
|
|
open(FILTER, "|$FILTERS");
|
||
|
|
# send contents of qscript to filters
|
||
|
|
print FILTER $out;
|
||
|
|
close(FILTER);
|