Sorry, I should have been much more specific. The problem is to find a set of regex's that would mark blocks of text. So it doesn't matter how many are on a line, or where. Once one regex is matched, all lines following, up to and including the next match, are considered within the block of code. The lines within blocks are to be returned to standard output.
I have two working scripts, one that uses alternation, and one that uses a loop. The way my teacher is, it's usually apparent what he expects that doesn't make it into the spec, and it seems to me, he intends for there to be a loop. But, I don't see the problem with using just regex. Would it be slower than having a loop that searches one regex at a time and can stop once it finds one? Is that even a relevant question?
106 ^L[18:27:43 kelly@kudzu lab6]$ cat 4.pl 107 #! /usr/bin/perl 108 # 109 # CIS 33A Programming In Perl 110 # Lab #6.4 111 # Due Date: Monday, Nov 22 112 # Written By: Kelly Price 113 # 114 use strict; 115 use warnings; 116 117 die "Usage: $0 infile outfile regexs...\n" if @ARGV < 3; 118 open(FIN, "$ARGV[0]") or die "Error openning $ARGV[0] for readin +g: $!\n"; 119 open(FOUT, ">$ARGV[1]") or die "Error openning $ARGV[1] for writin +g: $!\n"; 120 121 my (@regexs) = splice(@ARGV, 2); 122 my $rexs = '(' . join('|', @regexs) . ')'; 123 124 my $inblock = 0; 125 print FOUT grep { 126 my $match = 0; 127 if (/$rexs/) 128 { 129 $inblock = $inblock ? 0 : 1; 130 $match = 1; 131 } 132 $inblock or $match; 133 } <FIN>; 134 135 [18:27:46 kelly@kudzu lab6]$ 4.pl 4.pl 4.out \\{ \\} 136 [18:28:00 kelly@kudzu lab6]$ cat 4.out 137 print FOUT grep { 138 my $match = 0; 139 if (/$rexs/) 140 { 141 } 142 $inblock or $match; 143 } <FIN>;
In reply to Re^2: Alternation vs. looping for multiple searches.
by kprice++
in thread Alternation vs. looping for multiple searches.
by kprice++
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |