Split and distribute line in perl

Question

I have this form of line:

xxx| aaa yyy| bbb ccc zzz| ddd eee

I want to split and distribute in this array with perl:

xxx| aaa
yyy| bbb
yyy| ccc
zzz| ddd
zzz| eee

Answer 1

Ok, transferred from comments. I put it there while the question was closed.

With a substitution regex, we iterate through the string, extracting a key and the values. The value string is split on whitespace, and stored in an anonymous array in %hash , with the corresponding key.

Code:

use strict;
use warnings;
use v5.10; # to enable say

$_="xxx| aaa yyy| bbb ccc zzz| ddd eee"; 
my %hash; 
while (s/(\w+)\|([ \w]+\b(?!\|))//) { 
    $hash{$1} = [ split ' ',$2 ];
}
for my $key (keys %hash) {
    for my $val (@{$hash{$key}}) { 
        say "$key | $val";
    }
}

Output:

xxx | aaa
yyy | bbb
yyy | ccc
zzz | ddd
zzz | eee

Answer 2

One-liner solution:

perl -lne'for(split/ (?=\w+\|)/){($p,@a)=split/ /;print"$p $_"for@a}'

usage:

$ echo "xxx| aaa yyy| bbb ccc zzz| ddd eee" | perl -lne'for(split/ (?=\w+\|)/){($p,@a)=split/ /;print"$p $_"for@a}'
xxx| aaa
yyy| bbb
yyy| ccc
zzz| ddd
zzz| eee