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]

Reply via email to