Re: Split Operation

my $test="xyz,[a,b],c,'d',[e,[f,g,h,[i,j],k,l],m,n],o,p";

my @stack = [];

for (split /([\[\],])/, $test) {
    next
      unless length $_;

    next
      if $_ eq ',';

    push @stack, [] and next
      if $_ eq '[';

    push @{ $stack[-2] }, pop @stack and next
      if $_ eq ']';

    push @{ $stack[-1] }, $_;
}

my $retval = $stack[0];
[download]

Comment on Re: Split Operation Download Code

Replies are listed 'Best First'.
Re^2: Split Operation by santhosh_89 (Scribe) on Aug 03, 2009 at 05:53 UTC
Dear Happy.Barney I tested your perl source code,You have splited the scalar value based on the open and close bracket.So it is failing one of the test case.I gave following input/output. `#!/usr/bin/perl use strict; use warnings; my $test="[a[a]]"; my @stack = []; for (split /([\[\],])/, $test) { next unless length $_; next if $_ eq ','; push @stack, [] and next if $_ eq '['; push @{ $stack[-2] }, pop @stack and next if $_ eq ']'; push @{ $stack[-1] }, $_; } my $retval = $stack[0]; use Data::Dumper; print Dumper($retval); $VAR1 = [ [ 'a', [ 'a' ] ] ]; The output should be as following. $VAR1 = [ [ 'a[a]' ] ];` [download]	[reply] [d/l]

Replies are listed 'Best First'.

Re^2: Split Operation
by santhosh_89 (Scribe) on Aug 03, 2009 at 05:53 UTC

I tested your perl source code,You have splited the scalar value based on the open and close bracket.So it is failing one of the test case.I gave following input/output.

#!/usr/bin/perl
use strict;
use warnings;
my $test="[a[a]]";
my @stack = [];
for (split /([\[\],])/, $test) {
    next
    unless length $_;

    next
    if $_ eq ',';

    push @stack, [] and next
    if $_ eq '[';

    push @{ $stack[-2] }, pop @stack and next
    if $_ eq ']';

    push @{ $stack[-1] }, $_;
}
my $retval = $stack[0];
use Data::Dumper;
print Dumper($retval);


$VAR1 = [
          [
            'a',
            [
              'a'
            ]
          ]
        ]; 

The output should be as following.
$VAR1 = [
          [
            'a[a]'
          ]
        ];
[download]

[reply]
[d/l]