Re: Searching for variable then blank lines

set a true/false tag when arcserve is found
write lines to file
exit if two blank lines found in a row

untested:

my ($s, $b);
foreach my $line (@lines) 
{
  if ($line =~ /^\n$/i) {
    $b++;
    last if (($b == 2) && $s);
  } else {
    $b = 0;
  }
 
  if ($line =~ /^$arc/) { 
    $s = 'true';
  }

  if ($s) {
    print OUTPUT $line;
  } 

}
[download]

Also, you can skip the array part and do
for my $line (<SERVER>) {

Tiago

Comment on Re: Searching for variable then blank lines Download Code

Replies are listed 'Best First'.
Re: Re: Searching for variable then blank lines by rscott212 (Sexton) on Mar 14, 2002 at 05:29 UTC
Thanks for putting me in the right direction. I'm still confused. Will this jump down into my file, start where "arcserve.nlm" is found and print out every line, line by line, until two consecutive blank lines are found, then exit? I don't know if I was clear enough about what I was trying to do. If this is true, where should I insert this code into my scrip? Again, thanks for your help.	[reply]
Re: Re: Re: Searching for variable then blank lines by tstock (Curate) on Mar 14, 2002 at 05:54 UTC
yes, it does what I think you want. $s is true if you found the starting string, false otherwise $b only gets to 2 if it finds two blank lines in a row we only end the loop if we found two blank lines ($b) and a start ($s) we only print if we found a start ($s) (might make more sense if read from the bottom up, but then it wouldn't work correctly) This code works for big and small files alike, but for smaller files you can always try a regular expression if it's easier for you. If you don't use the array, this code actually has no memory problems handling very large files. Tiago	[reply]


go ahead... be a heretic
	PerlMonks