Just did this the other day. The key is to remember that sort's curly block is essentially an anonymous sub, so what you put there has to be executable code. In the case of a sort subroutine, this means you need to do something like this:

my $dir = shift; 

my $sort_sub = $dir eq 'up' ? sub {$a <=> $b} : sub {$b <=> $a};
my @items = (3, 1, 4, 1, 5, 9, 2, 6, 5, 3, 5);
print "@{[sort { $sort_sub->() } @items]}\n";
[download]

Which gives us

$ perl sample up
1 1 2 3 3 4 5 5 5 6 9
$ perl sample down
9 6 5 5 5 4 3 3 2 1 1
[download]

Note that the code in the sort curlies calls the callback itself.

---

---

• Are you posting in the right place? Check out Where do I post X? to know for sure.
• Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:

  <code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>

• Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
• Want more info? How to link or How to display code and escape characters are good places to start.