Dotaz: Perl - jak vlozit znak nahodne do retezce

[K1b]

Mam libovolny retezec

$retezec = "cokoliv blablablabla";

a nejaky znak

$znak = "x";

A chci ziskat retezec stejny jako $retezec az na to, ze na libovolne (nahodne) pozici toho retezce bude navic $znak;

Takze nekdy by byl vysledny retezec "cokxoliv blablablabla", jindy "cokoliv blablablablax" atd.


Dik

Odpovědi

[unchallenger]

$p = int rand(1 + length $retezec);
$retezec2 = substr($retezec, 0, $p) . 'x' . substr($retezec, $p);

Pozn. (ne pro tazatele): jo, umím to zapsat i méně znaky, ale kdo to má pak číst.

[K1b]

diky:)