33 lines
681 B
Perl
33 lines
681 B
Perl
|
#!/usr/bin/perl -W
|
||
|
|
|
||
|
|
$wort="abcd";
|
||
|
|
$len=length($wort);
|
||
|
|
$orgwort=$wort;
|
||
|
|
|
||
|
|
#1.stelle
|
||
|
|
for ($i1=0;$i1<$len;$i1++) {
|
||
|
|
$wort=$orgwort;
|
||
|
|
$a = substr($wort,$i1,1);
|
||
|
|
$wort = substr($orgwort, 0 ,$i1) . substr($orgwort,$i1+1,$len - ($i1+1));
|
||
|
|
#
|
||
|
|
#2.stelle
|
||
|
|
for($i2=0;$i2<$len-1;$i2++){
|
||
|
|
$b = substr($wort,$i2,1);
|
||
|
|
|
||
|
|
#3.stelle
|
||
|
|
$wort3 = substr($wort,0,$i2) . substr($wort,$i2+1,length($wort)-($i2+1));
|
||
|
|
for($i3=0;$i3<2;$i3++){
|
||
|
|
$c = substr($wort3,$i3,1);
|
||
|
|
|
||
|
|
#4.stelle
|
||
|
|
$wort4 = substr($wort,0,$i3) . substr($wort3,$i3+1,length($wort3)-($i3+1));
|
||
|
|
for($i4=0;$i4<1;$i4++){
|
||
|
|
$d = substr($wort4,$i4,1);
|
||
|
|
print($a . $b . $c . $d . "-" . $i1 . $i2 . $i3 . "\n");
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
}
|