くだすれPerl（超初心者用）3

[0192 nobodyさん 2009/08/05(水) 21:27:00 ID:???]

my $str = 'abcabcabc';
while($str =~ m/(a)/g){
my $pos = pos($str);
my $result = $1;
while($str =~ m/([^c]*c)/g){
$result .= $1;
print "$result\n";
}
pos($str) = $pos;
}