/[pcre]/code/trunk/perltest
ViewVC logotype

Diff of /code/trunk/perltest

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 3 by nigel, Sat Feb 24 21:38:01 2007 UTC revision 23 by nigel, Sat Feb 24 21:38:41 2007 UTC
# Line 39  if (@ARGV > 1) Line 39  if (@ARGV > 1)
39    }    }
40  else { $outfile = "STDOUT"; }  else { $outfile = "STDOUT"; }
41    
42  printf($outfile "Perl Regular Expressions\n\n");  printf($outfile "Perl $] Regular Expressions\n\n");
43    
44  # Main loop  # Main loop
45    
# Line 70  for (;;) Line 70  for (;;)
70    eval "\$_ =~ ${pattern}";    eval "\$_ =~ ${pattern}";
71    if ($@)    if ($@)
72      {      {
73      printf $outfile "Error: $@\n";      printf $outfile "Error: $@";
74      next NEXT_RE;      next NEXT_RE;
75      }      }
76    

Legend:
Removed from v.3  
changed lines
  Added in v.23

webmaster@exim.org
ViewVC Help
Powered by ViewVC 1.1.12