Thanks all. The item below works. I did not know one could use rand in that way.
cheers. aim. ===================================================== Rob Dixon wrote: > Aimal Pashtoonmal wrote: > > Hi, > > > > Does anyone know how I can go about introducing a single random > > deletion. I have file containing blocks of alphabet each block with a > > uniq tag. I have passed this into a hash where the tags are the keys > > and values are the blocks. Is there a quick and easy way to randomly > > remove a single letter from each block. For exmple: > > > > QWERTYUIOPLKJHGFDSAZXCVBNM > > WAZWSXEDCRFVTGBYHNUJMIKLOP > > DRFGTYHJUIKOLPNMHYTREFWQER > > > > I would want to remove a single letter but not at the same point for > > each block. > > It seems a strange thing to want to do! But this should do the trick. > > Cheers, > > Rob > > #perl > use strict; > > my @string = qw( > QWERTYUIOPLKJHGFDSAZXCVBNM > WAZWSXEDCRFVTGBYHNUJMIKLOP > DRFGTYHJUIKOLPNMHYTREFWQER); > > foreach my $str (@string) { > print "Old: $str\n"; > substr ($str, rand (length $str), 1) = ""; > print "New: $str\n\n"; > } > __END__ > > -- > To unsubscribe, e-mail: [EMAIL PROTECTED] > For additional commands, e-mail: [EMAIL PROTECTED] -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]