# Grep file for regular expression and output to STDOUT
#
# Usage:
# --let $grep_file= /path/to/your/file
# --let $grep_regex= your_regex_string
# --let $grep_filter= filter
# --source include/grep.inc
--perl
open (my $fh, "<", "$ENV{grep_file}") or die $!;
while (<$fh>)
{
if (/$ENV{grep_regex}/)
if ($ENV{grep_filter})
eval($ENV{grep_filter});
}
print;
close $fh;
EOF