私は文字列をすべての単語に$str = 'Hello my friends';
入れ、これの可能性のあるさまざまなものを得るために必要な文字列を持っています。\
たとえば、取得しstdout
たい
{H\ello|He\llo|Hel\lo|Hell\o} {m\y} {f\riens|fr\iends|fri\ends.....}
いくつかのコードを書きましたが、次に何をすべきか想像できません:
my $str = 'Hello my friends';
my @ra = split / /, $str;
for(my $i=0; $i < scalar @ra; $i++)
{
my $word = $ra[$i];
my $num = length($word);
my @chars = split("", $word);
for(my $k = 0, my $l = 1; $l < $num; $k++,$l++)
{
print $chars[$k]."\\".$chars[$l];
}
}
アイデアはありますか?=\