in reply to Re: Finding a random position within a long string (Activeperl Build 822)
in thread Finding a random position within a long string (Activeperl Build 822)

Your solution: 
  $string =~ s/(.)/( rand 10 < 1 ) ? '?' : $1/eg;

[download]
 is very nice. This one does really work (in Win32/Activeperl).

Thanks & Regards

mwa
  • Comment on Re^2: Finding a random position within a long string (Activeperl Build 822)
  • Download Code

In Section Seekers of Perl Wisdom