>> Re: can I should I shift/push an array in a foreach loop?
not a very good idea... try using the while structure instead if you
need to do so...
On Wed, 2003-02-12 at 10:23, Lance Murray wrote:
> Hello:
>
> I've been away from the Learning Perl book for a few weeks and trying to refresh
> my memory, but I'm stumped. What I need to do is take the output of a command
> (ovfiltercheck) that looks something like this:
>
> ### BIN OUTPUT BEGIN #####################
> FilterExpressions {
> NetBackbone "Networks and gateways/routers" { (Routers || Networks) }
> blah, blah,
> }
>
> Defined Filter List
> ===========
> ATMnodes
> Bridges
> Segments
>
> Defined Set List
> ================
> FAILOVER_SET
> WHWAN_INFRA_NODES
> ### BIN OUTPUT END ########################
>
>
> and get it into an array (i.e @filters) that looks like this:
> ### @filters BEGIN ########################
> ATMnodes
> Bridges
> Segments
> ### @filters END ##########################
>
> My question is whethor or not its better to parse the data as I load the array
> from the program output, or parse the array after the fact, or parse the array
> after the fact multiple times In either case I seem to get lost in trying to
> use a foreach and shift at the same time, e.g.:
>
> #### TRYING TO PARSE PURGE EVERYTHING TO "Defined Filter List" +two elements)
> my @filters = `/opt/OV/bin/ovfiltercheck`;
> foreach ( @filters ) {
> if ( m/Defined Filter List/ ) { # IF FIND FILTER SECTION
> shift; # DELETE "Defined Filter List"
> shift; # DELETE "================"
> last; # EXIT FOREACH LOOP
> } else {
> shift; # DELETE ELEMENTS
> }
> }
> # Make another foreach loop to dump elements after "Defined Set List"
> print @filters;
>
> In my mind, I'm thinking from DB perspective where I'm deleting the current
> record, not just the element at the start (shift) or end of an array (push). Is
> there any way to dump an element anywhere? (e.g., pop $array[$anyElement] or
> shift $anyElement[5])
>
> ### ANOTHER PATHETIC ATTEMPT
> my ( @filters, $filters_begin, $filters_end) ;
> open OVFILTERCHECK, "/opt/OV/bin/ovfiltercheck |" || die "Error, can't open:
> $!\n";
> while (<OVFILTERCHECK>) {
> if ( m/Defined Filter List/ ) { # WHEN I GET TO THE FILTER LIST
> $filters_begin = 1; # SET A FLAG INDICATING SAME
> }
> if ( m/Defined Set List/ ) { # WHEN PASS THE FILTER SECTION
> last; # TERMINATE ARRAY LOADING
> }
> if ($filters_found) { # IF FILTER SECTION HAS BEGUN
> $filters[$.++] = $_; # SAVE VALID FILTER NAMES TO @FILTERS
> }
> print @filters;
>
> Sorry for the crappy psuedocode that shows I don't have a clue. Its been a long
> day and my brain feels like its fried. All I want to do is "cut" (save to an
> array) the text between the words "Defined Filter List\n================" and
> "\nDefined Set List". Any help would be appreciated and a true solution worth a
> Six Dollar burger & movie via PayPal (in other words, I'll pay out of pocket).
>
> Thanks,
>
> Lance
>
> ------------------------------------------------------------------------------
> This message may contain confidential information, and is intended only for the use
>of the individual(s) to whom it is addressed.
>
>
> ==============================================================================
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
