http://www.perlmonks.org?node_id=989685


in reply to list separation

When you want to group stuff by name or other non-numeric identifier use a hash. Consider:

use strict;
use warnings;

my %quotes = comgetter ('Goud', 'Koper');

for my $aandeel (keys %quotes) {
    print "$aandeel: $_\n" for @{$quotes{$aandeel}};
}


sub comgetter {    #platinum enzo werkt allemaal nog niet
    my %quotes;
    my $html = do {local $/; <DATA>};

    foreach my $aandeel (@_) {
        my @url = split (/title=\s*"$aandeel"/, $html);
        my @url1 = split ('</td>\s*<td', $url[1]);
        my @url2 = split (/>/, $url1[1]);

        push @{$quotes{$aandeel}}, $url2[-1];

    }
    return %quotes;
}

__DATA__
<html>
  <head></head>

  <body>
    <table class="genTable openTable quotesSideBlockTable collapsedTab
+le">
      <tbody>
        <tr class="LeftLiContainer Selected" pair="8830" id="sb_pair_8
+830"
        chart_link="/commodities/gold-streaming-chart">
          <td class="sideColumn">&nbsp;</td>
          <td class="left bold first"><a href="/commodities/gold" titl
+e=
          "Goud">Goud</a></td>
          <td class="lastNum" id="sb_last_8830">1670.75</td>
          <td class="chg greenFont" id="sb_change_8830">+0.15</td>
          <td class="chgPer greenFont" id="sb_changepc_8830">+0.01%</t
+d>
          <td class="icon"><span class="newSiteIconsSprite redClockIco
+n" id=
          "sb_clock_8830">&nbsp;</span></td>
          <td class="sideColumn">&nbsp;</td>
        </tr>

        <tr class="LeftLiContainer" pair="8836" id="sb_pair_8836" char
+t_link=
        "/commodities/silver-streaming-chart">
          <td class="sideColumn">&nbsp;</td>
          <td class="left bold first"><a href="/commodities/silver" ti
+tle=
          "Zilver">Zilver</a></td>
          <td class="lastNum" id="sb_last_8836">30.735</td>
          <td class="chg greenFont" id="sb_change_8836">+0.279</td>
          <td class="chgPer greenFont" id="sb_changepc_8836">+0.92%</t
+d>
          <td class="icon"><span class="newSiteIconsSprite redClockIco
+n" id=
          "sb_clock_8836">&nbsp;</span></td>
          <td class="sideColumn">&nbsp;</td>
        </tr>

        <tr class="LeftLiContainer last" pair="8831" id="sb_pair_8831"
+ chart_link=
        "/commodities/copper-streaming-chart">
          <td class="sideColumn">&nbsp;</td>
          <td class="left bold first"><a href="/commodities/copper" ti
+tle=
          "Koper">Koper</a></td>
          <td class="lastNum" id="sb_last_8831">3.482</td>
          <td class="chg redFont" id="sb_change_8831">-0.010</td>
          <td class="chgPer redFont" id="sb_changepc_8831">-0.29%</td>
          <td class="icon"><span class="newSiteIconsSprite redClockIco
+n" id=
          "sb_clock_8831">&nbsp;</span></td>
          <td class="sideColumn">&nbsp;</td>
        </tr>
      </tbody>
    </table>
  </body>
</html>

[download]

Prints:

Goud: 1670.75
Koper: 3.482

[download]

By the way I strongly advise you to always use strictures (use strict; use warnings;) and avoid global variables. There seems to be a bug in your code where you declare @comquotes in your sub, but use @quotes. In this case you maybe get away with it because in the code you don't show us most likely you assign the return value from comgetter to the global @quotes. But some time in the future that fortunate accident is going to turn around and bite you hard on the back side!

True laziness is hard work

Replies are listed 'Best First'.
Re^2: list separation
by robertw (Sexton) on Aug 26, 2012 at 04:28 UTC

    Thank you for your help:), Is it however also possible to create a variable, its name consisting of another variable's value? 

    $ast = "best";
$fred = "date";
$"$ast" = 1;
print "$best";

    [download]

    the variable $best should have been created by using the value of $ast as it's name

[reply]
[d/l]

      There are ways of doing that in Perl, but it's worse than picking your nose in public - don't do it.

      If there is some aspect of the code I presented that you don't understand ask about it instead of thinking up ways to avoid it. I suspect you are having trouble with Perl's hashes. If you expect to spend any significant time writing Perl understanding Perl's hash (associative array) data type is critical to using the language well. See perldata for information about Perl's data types. There is a lot to take in there. Take it a little at a time. Back up to the start of a section when you hit a bit you don't understand right off. If something really doesn't make sense come back here and ask.

      True laziness is hard work
[reply]

        Thank you and you are absolutely right, I know what you wrote is right only I don't understand why yet and how.Thank you as well for shaping me to be a decent perl programmer who does not do the equivalent of picking his nose in public in perl:) I appreciate your help, I am going to study hashes now:P

[reply]

In Section Seekers of Perl Wisdom