25 lines
435 B
PHP
Raw Permalink Normal View History

# 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