[EMAIL PROTECTED] ~/experiments]$ perl perl_range_test.pl
startPattern
gjdhgf
kljsd
stopPattern
[EMAIL PROTECTED] ~/experiments]$ cat perl_range_test.pl
#!/usr/local/bin/perl -w
use strict;
my @text= ( "ahfdj\n",
"ksjdf\n",
"startPattern\n",
"gjdhgf\n",
"kljsd\n",
"stopPattern\n",
"jsadflj\n");
foreach ( @text )
{
print ($_) if /startPattern/ .. /stopPattern/;
}
> Date: Tue, 25 Mar 2008 12:06:58 +0200
> From: Yossi Itzkovich <[EMAIL PROTECTED]>
> Subject: [Israel.pm] how to find lines range (regex)
> To: "Perl in Israel" <[email protected]>
> Message-ID:
> <[EMAIL PROTECTED]>
> Content-Type: text/plain; charset="us-ascii"
>
> Hi,
>
> What's the best/simple way to find all lines between startPattern and
> StopPattern:
>
> @text= ( "ahfdj\n",
> "ksjdf\n",
> "startPattern\n",
> "gjdhgf\n",
> "kljsd\n",
> "stopPattern\n",
> "jsadflj\n");
>
> I would like to get a list of those 2 items in the middle
>
> Thanks
>
> Yossi
>
>
> ------------------------------
_______________________________________________
Perl mailing list
[email protected]
http://perl.org.il/mailman/listinfo/perl
