foreach and if loops

[keid]

If I have read a file as an array (probably not a good way for memory in case of big files). How can I move to the next line after matching a word in the if statement in this case?

@data=<DATA>;

foreach $elem (@data) { 

if ($elem= ~ m/^RBODY /)
{
exp; #storing info from $elem 
#how can i store info from the next line ?
}

}

 

[TonyGroves]

You could just add a "next;" into your loop. That will read in the next element.

 

[keid]

I dont want any specific output but storing these values
I need to search for keyword RBODY and print the next line after it

@data=<DATA>;

foreach $elem (@data) {

 if ($elem=~ m/RBODY/) {
	print $elem;
	next;
 if ($elem=m/NAME/) {print $elem;}
}

}
[\code]

I tried this on this sample data, next did not do as expected.

Sample Data

#comment
RBODY /   227799               0   81942                        
NAME Rigid_Body
RBODY /   227793               0   81943                        
NAME Rigid_Body

 

[TonyGroves]

Sorry, I was asleep. "next" just skips the remainder of the current iteration of the loop. The best solution is probably to set a flag when RBODY is read, and at the start of each iteration take action depending on the flag's value.

 

[KevinADC]

then use indexing:

@data=<DATA>;
foreach my $i (0..$#data-1) {
   $data[$i] =~ /RBODY/ && print $data[$i+1];
   $data[$i] =~ /NAME/  && print $data[$i+1];
}

I used $#data-1 because the last element of the array has nothing after it to print so it makes no sense to check the last element for a match.