[Freeswitch-svn] [commit] r5476 - freeswitch/trunk/scripts/contrib/trixter

[Freeswitch SVN]

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";
 }
+