Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -lw

...
print join ' ', sort { $a <=> $b } qw( 5 28 1 );

print "$b $a";
  2. or download this
    5 1 28
7 5
  3. or download this
    "my $a" used in sort comparison at prog.pl line 8.
"my $b" used in sort comparison at prog.pl line 8.