Aimal Pashtoonmal wrote:
> 
> Hi,

Hello,

> 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.

substr $block, rand length $block, 1, '';


John
-- 
use Perl;
program
fulfillment

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Reply via email to