#!/usr/bin/perl -w use strict; my @data=(<DATA>); foreach (grep { my $sequence_number=/START/ .. /STOP/; $sequence_numbe +r ne 1 and $sequence_number !~ /E0/ and $sequence_number;} @data ) { chomp; print "$_ Between START and STOP\n"; } __END__ START Sausage Mash Mushy Peas STOP Monkey Nuts START Bananas Custard STOP Tarzan
In reply to Re: flip-flop operator and sequence number
by Fool on the Hill
in thread flip-flop operator and sequence number
by iakobski
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |