if ($cmd !~ /\|\s*$/) { $cmd .= " |"; # make sure it's piped } if ($cmd !~ /^\s*\|$/) { $cmd = "| " . $cmd; # make sure it's piped }

NAME

File::Extract::Filter::Exec - Execute A Command To Filter File Contents

SYNOPSIS

use File::Extract::Filter::Exec;

my $filter = File::Extract::Filter::Exec->new(
  cmd => "/usr/bin/pdf2html",
  output => $output
)

$filter->filter($file);

DESCRIPTION

This filter executes a command, and writes the filtered output into a temporary file such that the new temporary file can be passed to