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