Help for this page

Select Code to Download


  1. or download this
    my @chars = ( 0..9,'a'..'z','A'..'Z' );
    print @chars;
    
    __DATA__
    0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ
    
  2. or download this
    my $string = join '',0..9,'a'..'z';
    $string =~ s/([a-z])/$1\u$1/g;
    print $string;
    
    __DATA__
    0123456789aAbBcCdDeEfFgGhHiIjJkKlLmMnNoOpPqQrRsStTuUvVwWxXyYzZ