Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
use strict;
...
push @lc,@uc;

print join ',', @lc,"\n";
  2. or download this
    #!/usr/bin/perl
use strict;
...

print join "|",@is_sorted;
  3. or download this
    my @sorted = ('a' .. 'm','n' .. 'z','X' .. 'Z','A' .. 'W');
  4. or download this
    #!/usr/bin/perl
use strict;
...

print join "|",@is_sorted;