Todd Beverly wrote:
> Craig Cardimon wrote:
>> I have something like this:
>>
>> while (<FILE>)
>> {
>> if (/<TAG>/ .. /<\/TAG>/)
>> {
>> # process line
>> }
>> }
>>
>> I got this from http://www.perl.com/pub/a/2004/06/18/variables.html.
>>
>> My special wrinkle is, I want to process certain sections of a file,
>> but only if that section passes certain criteria.
>>
>> I want to be able to begin processing lines, but I want to be able to
>> turn processing off and jump to the next <TAG> should the script
>> encounter a line containing, say, the tag <PDF>.
>>
> Something like this should work:
> #!/usr/bin/perl -w
>
> use strict;
>
> my $KeepGoing = 1;
>
> while (<FILE>)
> {
> $KeepGoing = 1 if /<TAG>/; # reset on the next <TAG>
>
> if ((/<TAG>/ .. /<\/TAG>/) && $KeepGoing)
> {
> if (/<PDF>/)
> {
> $KeepGoing=0; # stop processing until the next <TAG>
> next;
> }
>
> # process line
> }
>
> }
>
>
>
>
Thanks much. I'll try it.
Craig
_______________________________________________
ActivePerl mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
