[SOLVED]Splitting a string and pushing it into an array

baxy77bax has asked for the wisdom of the Perl Monks concerning the following question:

Hi, a very basic question but I am admitting I have no idea how to solve it and i need it right now. I have a string :

my $string = "/3212/2344,4334,XYZ&54,32/4333%3343%12";
[download]

I need to push this string into an array using any of /&%, symbols as record separators. but i need those elements to be in my array as well . so :

my @array = ('/','3212','/,'2344',',','4334','XYZ','&','54',',','32',
+'/','4333','%','3343','%','12'");
[download]

should by my outcome.

Thank you in advance

UPDATE:

Thank you, I knew it was something simple but i somehow missed taht part

Comment on [SOLVED]Splitting a string and pushing it into an array Select or Download Code

Replies are listed 'Best First'.
Re: Splitting a string and pushing it into an array by choroba (Cardinal) on Jun 25, 2014 at 20:25 UTC
Your expected output is wrong (a quote missing, an extra double quote, and a missing comma). For a solution, look at split: if the separator pattern uses capturing, it will be included in the result: `#!/usr/bin/perl use warnings; use strict; use Test::More tests => 1; my $string = "/3212/2344,4334,XYZ&54,32/4333%3343%12"; my @array = do { no warnings 'qw'; qw(/ 3212 / 2344 , 4334 , XYZ & 54 , 32 / 4333 % 3343 % 12); }; my @ar = split m{([/&%,])}, $string; shift @ar if $string =~ m{^[/&%,]}; # Leading separators might cause p +roblems. is_deeply(\@ar, \@array, 'ok');` [download] لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ	[reply] [d/l]

Replies are listed 'Best First'.

Re: Splitting a string and pushing it into an array
by choroba (Cardinal) on Jun 25, 2014 at 20:25 UTC

For a solution, look at split: if the separator pattern uses capturing, it will be included in the result:

#!/usr/bin/perl
use warnings;
use strict;

use Test::More tests => 1;

my $string = "/3212/2344,4334,XYZ&54,32/4333%3343%12";
my @array = do {
    no warnings 'qw';
    qw(/ 3212 / 2344 , 4334 , XYZ & 54 , 32 / 4333 % 3343 % 12);
};

my @ar = split m{([/&%,])}, $string;
shift @ar if $string =~ m{^[/&%,]}; # Leading separators might cause p
+roblems.
is_deeply(\@ar, \@array, 'ok');
[download]

لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ

[reply]
[d/l]