#!/usr/bin/perl -w
if(!@ARGV) {
die "Usage: $0 [STRING|--file FILENAME] REGEXP [--bench [DURATION-SEC]] \n";
}
my $str = shift;
if($str eq '--file') {
my $file = shift;
$str = `cat $file`;
}
my $re = shift;
my $bench = shift;
my $duration = shift || 10;
use Benchmark;
require 'regexp_engine_demo.pl';
#my $m = match_re($re,$str);
my $r = compile($re) || die "Compile failed";
my $m;
if($bench) {
timethis (-1*$duration, sub {$m = match($r,$str)});
} else {
$m = match($r,$str);
}
print $m->describe,"\n";