[Israel.pm] how to find lines range (regex)

[Felix Liberman]

[felix at FELIX-XP ~/experiments]$ perl perl_range_test.pl
startPattern
gjdhgf
kljsd
stopPattern

[felix at FELIX-XP ~/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 <Yossi.Itzkovich at ecitele.com>
>  Subject: [Israel.pm] how to find lines range (regex)
>  To: "Perl in Israel" <perl at perl.org.il>
>  Message-ID:
>         <64122293A6365B4A9794DC5636F9ACFD02C2D250 at ILPTEX02.ecitele.com>
>  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
>
>
>  ------------------------------