Help for this page

Select Code to Download


  1. or download this
    use strict;
    use warnings;
    ...
    map { $_->[0] =~ s/[^0-9]+/$test/ } @$raStruct;
    
    print Data::Dumper->Dump([$raStruct], [q{raStruct}]);
    
  2. or download this
    $raStruct = [
                  [
    ...
                    '6'
                  ]
                ];