in reply to how to push single array?

Please use more words when asking a question, and describe what you want to happen, and how its different from what it happens

As your question is written I cannot determine what you're asking

So I offer you this (dd does printing)
codeoutput
#!/usr/bin/perl --
use strict; use warnings;
use Data::Dump qw/ dd /;

my @feet = qw/ left right /;
my @shoes = qw/ loader sneaker boot /;
my @things;
dd { feet => \@feet, shoes => \@shoes, things => \@_ };




push @shoes, qw/ slippers /;
dd { feet => \@feet, shoes => \@shoes, things => \@_ };




push @things, \@feet, \@shoes;
dd { feet => \@feet, shoes => \@shoes, things => \@_ };

[download]





{
  feet   => ["left", "right"],
  shoes  => ["loader", "sneaker", "boot"],
  things => [],
}

{
  feet   => ["left", "right"],
  shoes  => ["loader", "sneaker", "boot", "slippers"],
  things => [],
}



{
  feet   => ["left", "right"],
  shoes  => ["loader", "sneaker", "boot", "slippers"],
  things => [],
}

[download]

Also please read perlintro and use Basic debugging checklist (among others)

Replies are listed 'Best First'.
Re^2: how to push single array?
by Anonymous Monk on May 13, 2013 at 09:19 UTC
    haha, what the heck is a "loader" shoe? typos fixed
    codeoutput
    #!/usr/bin/perl --
use strict; use warnings;
use Data::Dump qw/ dd /; # sub dd { use Data::Dumper; print Data::Dump
+er->new([@_])->Sortkeys(1)->Indent(1)->Useqq(1)->Dump . "\n"; }

my @feet = qw/ left right /;
my @shoes = qw/ loader sneaker boot /;
my @things;
dd { feet => \@feet, shoes => \@shoes, things => \@things };




push @shoes, qw/ slippers /;
dd { feet => \@feet, shoes => \@shoes, things => \@things };




push @things, \@feet, \@shoes;
dd { feet => \@feet, shoes => \@shoes, things => \@things };

    [download]
    {
  feet   => ["left", "right"],
  shoes  => ["loader", "sneaker", "boot"],
  things => [],
}





{
  feet   => ["left", "right"],
  shoes  => ["loader", "sneaker", "boot", "slippers"],
  things => [],
}




do {
  my $a = {
    feet   => ["left", "right"],
    shoes  => ["loader", "sneaker", "boot", "slippers"],
    things => ['fix', 'fix'],
  };
  $a->{things}[0] = $a->{feet};
  $a->{things}[1] = $a->{shoes};
  $a;
}

    [download]
[reply]
[d/l]
[select]
      "loader" -> "forklift" -> "high heels"?
[reply]

        "loader" -> "forklift" -> "high heels"?

        Nope. I knew "leather" was wrong when I posted my wondering, but now I remember, its loafer, like penny-loafer

[reply]

In Section Seekers of Perl Wisdom