On Wed, Mar 06, 2002 at 09:02:55AM -0500, Nikola Janceski wrote:
> foreach my $file (keys %NEW){
> $rev = (keys %{$NEW{$file}})[0];
> while (my ($cfile, $ids) = each %COOR){
> if( grep $NEW{$file}{$rev}[2] == $_, @{ $ids } ){
> $RELATION{$file} = $RELATION{$cfile};
> last;
> }
> }
> }
>
> it seems that the 'while(each)' statement doesn't get reset when I do a
> last;
> it starts where it left off. How can I reset it?
keys %COOR;
or values.
perldoc -f each
perldoc -f keys
perldoc -f values
--
Paul Johnson - [EMAIL PROTECTED]
http://www.pjcj.net
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
