Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -wl
use strict;

my @array = qw(465.274 21893.32 72.37); # qw creates quoted strings
print for (sort {$a <=> $b} @array);
  2. or download this
    72.37
465.274
21893.32
  3. or download this
    -- 
#!/usr/bin/perl -np
BEGIN{@ARGV=$0}s(^([^=].*)|=)()s;
=Just another perl hacker\