Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine
 
PerlMonks  

Re: Re: Consolidate info in a while() loop

by peppiv (Curate)
on Jan 21, 2003 at 21:41 UTC ( #228854=note: print w/ replies, xml ) Need Help??


in reply to Re: Consolidate info in a while() loop
in thread Consolidate info in a while() loop

I understand the concept but I have no idea how to start this. How do you build a hash from a while loop?

peppiv


Comment on Re: Re: Consolidate info in a while() loop
Re: Re: Re: Consolidate info in a while() loop
by CountZero (Bishop) on Jan 21, 2003 at 22:17 UTC

    In your while-loop, obtain both the day of the week without the date (to be put into a variable $weekday) and the number (put this into $number).

    Once you have these data, then $total{$weekday} += $number; will add $number to the value of the hash %total keyed by $weekday.

    That's all there is to it.

    CountZero

    "If you have four groups working on a compiler, you'll get a 4-pass compiler." - Conway's Law

Re: Re: Re: Consolidate info in a while() loop
by poj (Curate) on Jan 21, 2003 at 22:43 UTC
    Example
    if (!defined $line[0]) { $line[0] = ""; } # $line[1] = &formatNumber($line[1]); ### take this out if (($report3 == 1101)) { printf("%-66s %13s\n", $line[0], $line[1]); #Here's the bugger. This is the line that prints what I need my $weekday = substr($line[0],0,3); ## add $total_day{$weekday} += $line[1]; ## add +. } elsif (defined $field{$report3}) { printf("%-66s %13s\n", $line[0], $line[($field{$report3}+1)]) +; } $count3++; } } # print totals in correct order my @days = qw(Mon Tue Wed Thu Fri Sat Sun); for (@days){ printf( "%-66s %13s\n",$_,formatNumber($total_day{$_}) ); }
    poj
      You!........You my friend are very good!

      No, I'm not!

      Yes, you are!

      No, no.

      Hey, I said you was good!

      Analyze that!

      peppiv

      Works like a charm! Had to declare %total_day and take out the formatting of the number before it was crunched, but hey, you is good!

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (8)
As of 2014-07-11 09:47 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    When choosing user names for websites, I prefer to use:








    Results (224 votes), past polls