Help for this page

Select Code to Download

Select or download this

km@krot:/home/km> perl -le 'my $a = "q"; my $b = "x"; print join "-", 
+sort { $a cmp $b } qw(foo bar baz); print $a; print $b;'
Can't use "my $a" in sort comparison at -e line 1.

Select or download this

km@krot:/home/km> perl -le '{my $a = "q"; my $b = "x";} print join "-"
+, sort { $a cmp $b } qw(foo bar baz); print $a; print $b;'
bar-baz-foo