(perl) suchen und ersetzen - etwas dynamischer

[stephan01]

hallo erstmal...

bisher habe ich alles mit

@i = <INPUT>;
foreach $z (@i) {
$z =~ s/ich/cih/img;
}

gemacht, nur das ist doch ziemlich starr....

nun würde ich es gerne so gestalten, dass bei (z.b.) wörter länger als 7 buchstaben in der mitte wahllos zwei buchstaben vertauscht werden..... (über den sinn der sache ist nicht zu diskutieren )

wie kann ich das machen? ich habe absolut keinerlei idee


danke für jede hilfe
bye

 

[barney]

hi stephan01,

meinst du so in etwa?:

#!/usr/bin/perl

print "bitte wort eingeben: ";
$wort = <STDIN>;
$index= length($wort);
if($index >= 8)
{
@erg=split(//,$wort);
$random1 = int(rand(7));
$random2 = int(rand(7));
if ($random1 eq $random2){++$random2};
$first=$erg[$random1];
$scnd=$erg[$random2];
$erg[$random1]=$scnd;
$erg[$random2]=$first;
print @erg;
}

mfg barney

 

[stephan01]

boah....genau so

daaaaanke