Help for this page

Select Code to Download


  1. or download this
    while (<FH>)
{
  print C $_ if /^abcde.*PARTNAME$/;
}
  2. or download this
    my $re = qr/^$start.*$end$/;
while (<FH>)
{
  print C $_ if m/$re/;
}
  3. or download this
    my $startre = qr/^$start/;
my $endre   = qr/$end$/;
...
{
  print C $_ if m/$startre/ and m/$endre/;
}