Help for this page

Select Code to Download


  1. or download this
    my $string = "ABCDEFGHIJKLMNOPQRSTUVWXYZ";
my ($random) = $string =~ m/(??{'.'x rand length $string })(.)/s;
print $random, "\n";
  2. or download this
    my $string = "ABCDEFGHIJKLMNOPQRSTUVWXYZ";
my( $random ) = $string =~ m/^(??{ '.' x rand length $_ })(.)/s;
print "$random\n";
  3. or download this
    my $string = "ABCDEFGHIJKLMNOPQRSTUVWXYZ";
my ($random) = $string =~ m/^
...
                            (.)
                           /sx;
print "$random\n";