Help for this page

Select Code to Download


  1. or download this
     use strict;
use warnings;
use Data::Dumper;
...
my $test="[1,2,3]";
my @var = split(/[\]\[,]/,"[1,2,3]");
print Dumper \@var;
  2. or download this
     $VAR1 = [
          '',
          '1',
          '2',
          '3'
        ];
  3. or download this
     use strict;
use warnings;
use Data::Dumper;
...
my $empty;
my ($empty,@var) = split(/[\]\[,]/,"[1,2,3]");
print Dumper \@var;