Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling
 
PerlMonks  

Re: While Loops

by sundialsvc4 (Abbot)
on Jan 08, 2013 at 19:36 UTC ( #1012322=note: print w/replies, xml ) Need Help??


in reply to While Loops

The way that I have traditionally approached this problem is thusly:   the ruling logic is the while-loop as written, and the exception to that loop is “100 records at a time.”

Therefore, I would first precede that loop by initializing a counter: my $records_so_far = 0;

Then, within that loop (at the bottom) I would add, e.g.:

if ($records_so_far ++ >= 100) { $records_so_far = 0; <<do something interesting here>> }
... and then, after the loop(!) ...
if ($records_so_far > 0) <<do it again i.e. call the same subroutine>>

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1012322]
help
Chatterbox?
[Discipulus]: good morning vietnam!
[Discipulus]: but there is some perl workshop somewhere? I notice many high level monks disappeared.. we can make PM a squat in the meantime ;=)
[karlgoethebier]: Discipulus: Mmh, who disappeared?
[marto]: morning all
[shmem]: perl -lE '$_="odd mornin";($o=$_)=~ s/^|$/g/g;say$o'
[Eily]: Hi monks o/
[choroba]: 3 PM in Vietnam, BTW

How do I use this? | Other CB clients
Other Users?
Others taking refuge in the Monastery: (8)
As of 2017-06-27 08:08 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    How many monitors do you use while coding?















    Results (600 votes). Check out past polls.