32 lines
583 B
Perl
32 lines
583 B
Perl
#!/usr/bin/env perl
|
|
use 5.010_000;
|
|
|
|
# Sort strings
|
|
|
|
my $x = 'lions, tigers, and';
|
|
my $y = 'bears, oh my!';
|
|
my $z = '(from the "Wizard of OZ")';
|
|
|
|
# When assigning a list to list, the values are mapped
|
|
( $x, $y, $z ) = sort ( $x, $y, $z );
|
|
|
|
say 'Case 1:';
|
|
say " x = $x";
|
|
say " y = $y";
|
|
say " z = $z";
|
|
|
|
# Sort numbers
|
|
|
|
$x = 77444;
|
|
$y = -12;
|
|
$z = 0;
|
|
|
|
# The sort function can take a customizing block parameter.
|
|
# The spaceship operator creates a by-value numeric sort
|
|
( $x, $y, $z ) = sort { $a <=> $b } ( $x, $y, $z );
|
|
|
|
say 'Case 2:';
|
|
say " x = $x";
|
|
say " y = $y";
|
|
say " z = $z";
|