Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change
 
PerlMonks  

Re: New to coding - Looping code to save time

by kennethk (Abbot)
on May 11, 2012 at 15:41 UTC ( #970045=note: print w/ replies, xml ) Need Help??


in reply to New to coding - Looping code to save time

What materials are you using to learn? http://learn.perl.org has a number of resources available, including free and open access to Beginning Perl by Simon Cozens, and chapter 3 is particularly on point here.

You probably want to store your stop, start, and personal data in arrays (see perldata for a description), which you can then cycle over using Foreach Loops, though for this case it might more sense to use C-style For Loops or while loops. Your code might end up looking something like:

my $daily_total = 0; my $busi_total = 0; my $pers_total = 0; for my $i (0 .. 30) { if ($stop[$i] > 0) { my $daily = $stop[$i] - $start[$i]; my $busi = $daily - $personal[$i]; $daily_total += $daily; $busi_total += $busi; $pers_total += $personal[$i]; } }

Of course, this depends on your ultimate spec - what you take in, what you output, etc.

#11929 First ask yourself `How would I do this without a computer?' Then have the computer do it the same way.


Comment on Re: New to coding - Looping code to save time
Select or Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://970045]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others musing on the Monastery: (6)
As of 2015-07-05 20:24 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (68 votes), past polls