Re: Regexp. Combination of words block. Need help.

[Anonymous Monk]

Why that array? Id use split

[nickwest]

$b = 'aaa,bbb,ccc ddd; eee fff, kv.6 end';

@a = split(/[\s\,\.\;]+/, $b);
for ($i=0;$i<$#a-1;$i++) {
  $_ = $b;
  $k = $a[$i];
  s/^.*$k[\s\,\.\;]+//;
  push @c, $_;
}

push @a, @c, $b;

foreach (@a) {
print "$_\n";
}


and get:


aaa
bbb
ccc
ddd
eee
fff
kv
6
end
bbb,ccc ddd; eee fff, kv.6 end
ccc ddd; eee fff, kv.6 end
ddd; eee fff, kv.6 end
eee fff, kv.6 end
fff, kv.6 end
kv.6 end
6 end
aaa,bbb,ccc ddd; eee fff, kv.6 end

[nickwest]

Yes! Thank you! I'm going by your way. Firstly split! But I think it's possible make by one regex.