Author: trixter Date: Tue Jun 26 17:25:29 2007 New Revision: 5476 Modified: freeswitch/trunk/scripts/contrib/trixter/regexptest.pl Log: updated to make output better Modified: freeswitch/trunk/scripts/contrib/trixter/regexptest.pl ============================================================================== --- freeswitch/trunk/scripts/contrib/trixter/regexptest.pl (original) +++ freeswitch/trunk/scripts/contrib/trixter/regexptest.pl Tue Jun 26 17:25:29 2007 @@ -11,10 +11,13 @@ chomp($value); if ($value =~ m/$regexp/) { - print "Regexp matches\n"; + print "$value matches $regexp\n"; $x=1; while (defined $$x) { print "capture $x: $$x\n"; $x++; } +} else { + print "$value does not match $regexp\n"; } +