Break out of the loop

Hello,

I have following code. Goal is to check files in a folder for their completion.  There can be n number of files.  The problem here is that if I do not use 'break logic', status will be complete even if the loop finds one of the files to be complete.  So I am looking for a break logic.  The documentation says we cannot put it with do{}.  So, Can I use LAST with the inner for loop? so the For loop starts all over again?

my @files = <C:\\root;
my $status='incomplete';
do 
{
CHECK:  for my $file ( @files ) 
{
my $size= -s $file;
sleep 5;
my $size_later= -s $file

if ($size==$size_later)
 {
       $status= 'complete';
  }
else  LAST CHECK;# I need break here to start looking for files again
}
} while ( $status=='incomplete') #end do - while for status

Open in new window

perlwhiteAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

ozoCommented:
last CHECK; is not breaking out of the do, it is breaking out of the for
0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
ozoCommented:
Do you want to set $status='incomplete' in the else?
0
perlwhiteAuthor Commented:
Yes, I want $status= 'incomplete'.  I believe, I am setting that on very top.  Do I have to again set up?

else  {LAST CHECK  $status='incomplete'};
0
ozoCommented:
If the first file sets $status= 'complete', it will still be 'complete' even if $size!=$size_later on the second file.  Is that what you want?
0
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Perl

From novice to tech pro — start learning today.