Parent Directory
| 
Revision Log
| 
Patch
| code/trunk/perltest revision 3 by nigel, Sat Feb 24 21:38:01 2007 UTC | code/tags/pcre-2.01/perltest revision 26 by nigel, Sat Feb 24 21:38:47 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 |
|
||||||||
| ViewVC Help | |
| Powered by ViewVC 1.1.5 |