fork download
copy 
  1. print addtwo();
  2. sub addtwo {
  3.  
  4.     my $params = shift;
  5.  
  6.     my $s = $params->{STRUCTURE}; # ; was missing at the end of a line
  7. 	print 1;
  8.     # 
  9.     if (ref($s) eq "LIST") {
  10.         $c = 0;
  11.         foreach $e (@{$s}) {
  12.         	print $c;
  13.             $s->[$c] = addtwo({ structures => $e });
  14.             $c++; # to increment $c we need to use double plus sign "++"
  15.         }
  16.  
  17.     # 
  18.     } elsif (ref($s) eq "HASH") {
  19.  
  20.         if (scalar keys %{$s} == 0) {
  21.             return undef;
  22.         } else {
  23.             foreach my $e (values %{$s}) {
  24.                 $s{$e} = addtwo({ structure => $s->{$e} });
  25.             }
  26.         }
  27.  
  28.     } else {
  29.         $s = 1;
  30.     }
  31.  
  32.     return $c;
  33.  
  34. }
  35.  
Success #stdin #stdout 0s 4328KB
comments (?)
stdin
copy 
[{a=>1,b=>2,c=>3},{d=>4,e=>5},[6,7,8],9,10,11,[12,13,14]]
stdout
copy 
1
https://ideone.com/uNhKuB
language:
Perl (perl 5.28.1)
created:
6 years ago
visibility:
public

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!