how to print continuously in array of array?

[virudinesh]

my @stuff = (
    ['one', 'two', 'three', 'four'],
    [7, 6, 5],
    ['apple', 'orange'],
    [0.3, 'random', 'stuff', 'here', 5],
);

print $stuff[0][2], "\n";

print $stuff[3][1], "\n";

its only print three and random

but i want to print randomly how?

how to print one by one continuously in full array

[marto]

"its only print three and random"

This is all you've asked it to print:

print $stuff[0][2], "\n"; # prints three
print $stuff[3][1], "\n"; # prints random

Something like:

#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;

my @stuff = (
    ['one', 'two', 'three', 'four'],
    [7, 6, 5],
    ['apple', 'orange'],
    [0.3, 'random', 'stuff', 'here', 5],
);

print Dumper \@stuff;

Or this solution from one of your previous threads? Again if the previous answers don't do what you require it'd be wise to follow them up rather than posting essentially the same questions again and again.

Update: or here a few minutes before this thread.

[karlgoethebier]

«how to print one by one continuously in full array»

Access and Printing of an ARRAY OF ARRAYS

Regards, Karl

[choroba]

Do you mean something like this?

#!/usr/bin/perl
use warnings;
use strict;

my @ar = (qw/a b c/, [ 'level 1', 'level 1b',
                         [ 'level 2', 'level 2b',
                             [ 'level 3', [ 'level 4', [[ 'level 6 ']]
+ ]]]]);

sub flatten {
    return map ref $_ ? flatten(@$_) : $_, @_;
}

print join ', ', flatten @ar;

[space_monk]

The simplest way to write questions in future is to show what you expected to happen or what you want to happen.

e.g. I wrote this program.

# my code here
# make sure your code has
use strict;
use warnings;

In the above program, the data is in the array/hash/other data structure because....(give a reason here)

I wanted it to output the following:

# what I expected it to print

But instead I got;

# what the program really did

[2teez]

#how to print one by one continuously in full array

  my $counter = 0;
  
  foreach my $array (@stuff){
     print "ARRAY [ ", $counter++ ," ]: ";
     foreach my $data (@$array){
          print $data,' ';
     }
      print $/;
  }

  #OR 
  
 print join " ", map{@$_} @stuff[0..$#stuff];

but i want to print randomly how?
You should be able to do that now, however, don't forget the function rand

[ambrus]

how to print dynamicaly ? might be related.