Re^4: How to calculate the column and print it in pie chart format using perl?

After changing it to while(my 
$r=$sth->fetchall_hashref;)

what does the following line denotes:

for my $r (@$table) { 
    my $name='other'; 
    for my $s (@sys){ 
      if ($r->{queue_name}=~m/$s/i) {$name=$s; last;} 
      }
[download]

How the $table is used here without any pre declaration.

Comment on Re^4: How to calculate the column and print it in pie chart format using perl? Download Code

Replies are listed 'Best First'.
Re^5: How to calculate the column and print it in pie chart format using perl? by marioroy (Prior) on Mar 23, 2017 at 06:05 UTC
Hi finddata, Some time ago, a fellow sent emails asking for help over and over. I mentioned a book to read. The Perl by Example by Ellie Quigley is a great resource in helping one master Perl with classroom-like instructions. This fellow did the very thing. Do not be overwhelm by the number of pages. Only the first 200 ~ 230 pages will fill your mind with a wonderful foundation regarding the Perl scripting language. Just think, you'd reach page 5, then onwards to page 10, and soon understand everything up through page 35. You'd soon reach page 140 and want to celebrate with the entire family and friends upon crossing the 200 mark. Visualize reaching this milestone. What a fantastic journey that might be. Regards, Mario	[reply]
Re^6: How to calculate the column and print it in pie chart format using perl? by finddata (Sexton) on Mar 23, 2017 at 06:39 UTC
Thank you for your suggestions.	[reply]
Re^5: How to calculate the column and print it in pie chart format using perl? by huck (Prior) on Mar 23, 2017 at 05:10 UTC
You dont follow directions well do you?	[reply]
Re^6: How to calculate the column and print it in pie chart format using perl? by finddata (Sexton) on Mar 23, 2017 at 05:14 UTC
Just am clarifying the things and its usage.How you used.	[reply]