fork download
copy 
  1. #!/usr/bin/perl
  2.  
  3. $n=25;
  4. $m=15;
  5.  
  6. $A[$n-1] = undef;         # autovivify @A to length $n
  7.  
  8. sub foo  {
  9.     my ($aref, @i) = @_;
  10.     @$aref[@i] = (42) x @i;
  11.     return;
  12. }
  13.  
  14. foo(\@A, grep { 0 == $_ % 2 } 0 .. $m);
  15.  
  16. use Data::Dumper;
  17. print Dumper(@A);
Success #stdin #stdout 0.02s 6652KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
$VAR1 = 42;
$VAR2 = undef;
$VAR3 = 42;
$VAR4 = undef;
$VAR5 = 42;
$VAR6 = undef;
$VAR7 = 42;
$VAR8 = undef;
$VAR9 = 42;
$VAR10 = undef;
$VAR11 = 42;
$VAR12 = undef;
$VAR13 = 42;
$VAR14 = undef;
$VAR15 = 42;
$VAR16 = undef;
$VAR17 = undef;
$VAR18 = undef;
$VAR19 = undef;
$VAR20 = undef;
$VAR21 = undef;
$VAR22 = undef;
$VAR23 = undef;
$VAR24 = undef;
$VAR25 = undef;
https://ideone.com/HZdqVN
# Idiom #196 Pass a sub-array - revised original implementation
language:
Perl (perl 5.28.1)
created:
298 days ago
visibility:
secret

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!