Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things

Re: Pushing at Array of Arrays

by Enlil (Parson)
on Feb 25, 2005 at 01:50 UTC ( #434337=note: print w/replies, xml ) Need Help??

in reply to Pushing at Array of Arrays

Since you mentioned that the output is what you want what you want your code to look like is:
#!/usr/bin/perl -w use strict; use warnings; use diagnostics; my @data = [ '17-02-2005','18-02-2005','19-02-2005', '20-02-2005','21-02-2005','22-02-2005', '23-02-2005','24-02-2005' ]; my %labels = ( 'C' => [0,0,0,0,7,0,0,2], 'A' => [0,0,0,0,0,0,5,4], 'B' => [0,0,0,0,0,0,0,0] ); foreach my $item (sort {$a cmp $b} keys %labels) { # replaced #push @{$data[$item]}, $labels{$item}; # with push @{$data[0]}, $labels{$item}; } use Data::Dumper; print Dumper @data;
The problem is that in the push you are using $data[$item] in which case $item (being the hash keys 'A','B','C') not being a numeric are being converted to 0 (and hence pushing things onto the first array in your AoA (@data) and a warning is thrown. Which is why I replaced $item with zero in the code above.


Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://434337]
[james28909]: ok i have a new question ;)
[james28909]: i am not sure how to ask google this either
[james28909]: i am getting the current time on my machine with scalar localtime;
[james28909]: i am scraping a website and retrieving a date stamp of an article.
[james28909]: well time/data stamp of the article
[stevieb]: james28909: what's the problem/question?
[james28909]: it is not an absolute date like "27" or "31". sometimes it is like wednesday or friday

How do I use this? | Other CB clients
Other Users?
Others lurking in the Monastery: (6)
As of 2017-04-29 02:32 GMT
Find Nodes?
    Voting Booth?
    I'm a fool:

    Results (531 votes). Check out past polls.