Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw

Re: Getting out an array within an array

by Lotus1 (Curate)
on Oct 01, 2012 at 20:50 UTC ( #996745=note: print w/replies, xml ) Need Help??

in reply to Getting out an array within an array

As SundialSvc4 mentioned reading about references should help. Here is a tutorial.

Here is some code to help you out. Tack this on to the end of your program.

use Data::Dumper; print "*"x75,"\n"; print Dumper(@a); print "*"x75,"\n"; chomp @$_ foreach @a; print Dumper(@a); print "*"x75,"\n"; print scalar @a, " elements [references] in \@a\n"; print "*"x75,"\n"; my @new1 = @{$a[0]}; my @new2 = @{$a[1]}; print Dumper($a[0]); print "\@new1 => @new1\n"; print "\@new2 => @new2\n"; print "*"x75,"\n"; foreach (@a) { print "@$_\n"; }

Replies are listed 'Best First'.
Re^2: Getting out an array within an array
by sokatron (Initiate) on Oct 02, 2012 at 06:52 UTC
    I will definitely check the tutorial but you code was also really useful. Instead of getting nonsense from my attempt to use only @ and not the curly brackets, atleast I can get the values.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://996745]
NodeReaper practices with his stiletto

How do I use this? | Other CB clients
Other Users?
Others examining the Monastery: (7)
As of 2018-06-20 06:25 GMT
Find Nodes?
    Voting Booth?
    Should cpanminus be part of the standard Perl release?

    Results (116 votes). Check out past polls.