spliting arrays

[bory]

Hi!I have the following problem:

my $ident="aaa bbb ccc-ddd eee fff-ggg hhh iii-jjj kkk lll-";
my @id= split/-/,$ident;

=> @id=("aaa bbb ccc","ddd eee fff","ggg hhh iii","jjj kkk lll"); I don't what to do to print only "aaa" and then "bbb" then "ccc".... exactly i want to store each one in a different string. Thank you very much for your time.

[davido]

You can split on whitespace OR hyphen by using alternation within the split regexp:

my @id = split /-|\s/, $ident;

The above code would solve the problem illustrated in the text of your question. Notice: I used \s to indicate "space". \s is not strictly synonomous with "space", as it also matches tab, newline, etc. You could use the actual space character in your split regex. I used \s to make it easy to read the regex.

The subject of your question, "Splitting Arrays" doesn't match the text of your question. Is there something you left out? We're not splitting arrays here, we're splitting strings into an array.

[allolex]

This is my take on your problem using split twice with array of anonymous arrays.

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

my @strings;

while (<DATA>) {
        #  Split up input stream using dashes
        my @smallarray = split '-';     #  @smallarray now has 'aaa bb
+b ccc', etc.

        #  Iterate through @smallarray items and split them up using s
+paces
        #  Create an array of anonymous array references
        #  The references are the array resulting from split, using []
        push(@strings, [split /\s/]) foreach (@smallarray);
}

Read more... (911 Bytes)

#  Print out the whole AoA contents
foreach my $arrayref (@strings) {
        print "$_\n" foreach @$arrayref;
}

print "----\n\n";

#  Or just the contents of one group
foreach my $item (@{$strings[0]}) {
        print "$item\n";
}

__DATA__
aaa bbb ccc-ddd eee fff-ggg hhh iii-jjj kkk lll-

__OUTPUT__
aaa
bbb
ccc
ddd
eee
fff
ggg
hhh
iii
jjj
kkk
lll
----

aaa
bbb
ccc

--
Allolex

Perl and Linguistics
http://world.std.com/~swmcd/steven/perl/linguistics.html
http://www.linuxjournal.com/article.php?sid=3394
http://www.wall.org/~larry/keynote/keynote.html