Re: How'd they do that...proportional horz. bars in poll results...

[Caillte]

This is more an HTML question but it works like this:

my $results = {
    'Category A' => 14,
    'Category B' => 21
};

# Start your HTML here..... Then....

print qq(<table border="0">\n);

foreach my $key (keys(%$results)) {
    print qq(<tr><td>$key</td><td><img src="bar.gif" width="$results->
+{$key}"></td></tr>);
}
print qq(</table>\n);

bar.gif serves to give the colour to the result and the width is set by the number of entries for that result.

Of course this is a rather crude example but it should sho the basics ;)

Update: Added the offending semi-colon so it now compiles (Thanks tachyon). Moral, don't write something in a rush while preparing for a meeting ;)

This page is intentionally left justified.

[tachyon]

This is of course the gist but if you want it to compile :o) and look right (ie height of bars), perhaps you might:

my $results = {
    'Category A' => 140,
    'Category B' => 210
};

# Start your HTML here..... Then....

print qq(<table border="0">\n);

foreach my $key (keys(%$results)) {
  print <<"  HTML";
  <br>
  <tr>
    <td>
      $key
    </td>
    <td>
      <img src="http://perlmonks.org/images/bluebox.gif" height=15 wid
+th="$results->{$key}">
    </td>
    <td>
      $results->{$key} width units
    </td>
  </tr>
  HTML
}
print "</table>\n";

cheers

tachyon

s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print

[S_Shrum]

Perfect...I know how to sort on keys but how can I sort them according to the values (hi-lo)?

TIA

======================
Sean Shrum
http://www.shrum.net

[thelenm]

You can sort by value by changing

foreach my $key (keys(%$results)) {

in the above code to:

foreach my $key (sort {$results->{$b} <=> $results{$a}} keys %$results
+) {

If you have a ton of results, this may be inefficient, and may want to use a Schwartzian transform instead. But it sounds like maybe you don't have to worry about that.

[tachyon]

Typos, typos.... foreach my $key ( sort {$results->{$b} <=> $results->{$a}} keys %$results ) {

Note that we access our hash $results->{'some_key'} as $results is a reference to the hash. So too the %$results notation to dereference $results and give us the hash. If you just have a plain hash %results your code will look like:

foreach my $key ( sort {$results{$b} <=> $results{$a}} keys %results )
+ {

You will need to change the other -> derefereces too if that is the case.

cheers

tachyon

s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print