<div dir="ltr">num in that context is a subroutine meant as a shortcut for numerical sorting.<div><br></div><div>The more full example is the following</div><div><br></div><blockquote style="margin:0 0 0 40px;border:none;padding:0px"><div>#!/usr/bin/env perl</div><div><br></div><div>use strict;</div><div>use warnings;</div><div><br></div><div>sub num {</div><div>    $a <=> $b;</div><div>}</div><div><br></div><div>my %array = ( a => 1, b => 2, c => 3 );</div><div><br></div><div>sub foo { return print reverse sort num values %array }</div><div><br></div><div>foo();</div></blockquote><div><br>You can read about this in the spec for sort</div><div><a href="https://perldoc.perl.org/functions/sort">https://perldoc.perl.org/functions/sort</a><br></div><div><br></div><div>- Miller</div></div><br><div class="gmail_quote"><div dir="ltr" class="gmail_attr">On Thu, Jul 15, 2021 at 1:48 PM David Christensen <<a href="mailto:dpchrist@holgerdanske.com">dpchrist@holgerdanske.com</a>> wrote:<br></div><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex">San Francisco Perl Mongers:<br>
<br>
Regarding the "perlstyle" document [1]:<br>
<br>
1.  Under "Regarding aesthetics of code lay out ...", "Space after last <br>
parenthesis matching on current line" would seem to only make sense when <br>
additional code follows a closing parenthesis.  E.g.<br>
<br>
        if ( ... ) {<br>
            ...<br>
        }<br>
<br>
     And:<br>
<br>
        my $x = foo( ... ) && ... ;<br>
<br>
     But not:<br>
<br>
        my $z = bar( ... );<br>
<br>
2.  Under "Along the same lines, just because you CAN omit parentheses <br>
...", what is "num" in the example code?<br>
<br>
        return print reverse sort num values %array;<br>
<br>
     My Perl says:<br>
<br>
        2021-07-15 13:19:07 dpchrist@dipsy ~/sandbox/perl<br>
        $ cat /etc/debian_version ; uname -a ; perl -v | head -n 2 | tail -n 1<br>
        10.10<br>
        Linux dipsy 4.19.0-17-amd64 #1 SMP Debian 4.19.194-2 (2021-06-21) <br>
x86_64 GNU/Linux<br>
        This is perl 5, version 28, subversion 1 (v5.28.1) built for <br>
x86_64-linux-gnu-thread-multi<br>
<br>
        2021-07-15 13:19:11 dpchrist@dipsy ~/sandbox/perl<br>
        $ cat <a href="http://perlstyle-num.pl" rel="noreferrer" target="_blank">perlstyle-num.pl</a><br>
        #!/usr/bin/env perl<br>
        use strict;<br>
        use warnings;<br>
<br>
        my %array = ( a => 1, b => 2, c => 3 );<br>
<br>
        sub foo { return print reverse sort num values %array }<br>
<br>
        foo();<br>
<br>
        2021-07-15 13:19:25 dpchrist@dipsy ~/sandbox/perl<br>
        $ perl <a href="http://perlstyle-num.pl" rel="noreferrer" target="_blank">perlstyle-num.pl</a><br>
        Undefined sort subroutine "main::num" called at <a href="http://perlstyle-num.pl" rel="noreferrer" target="_blank">perlstyle-num.pl</a> line 7.<br>
<br>
<br>
Comments?<br>
<br>
<br>
David<br>
<br>
<br>
[1] <a href="https://metacpan.org/dist/perl/view/pod/perlstyle.pod" rel="noreferrer" target="_blank">https://metacpan.org/dist/perl/view/pod/perlstyle.pod</a><br>
_______________________________________________<br>
SanFrancisco-pm mailing list<br>
<a href="mailto:SanFrancisco-pm@pm.org" target="_blank">SanFrancisco-pm@pm.org</a><br>
<a href="https://mail.pm.org/mailman/listinfo/sanfrancisco-pm" rel="noreferrer" target="_blank">https://mail.pm.org/mailman/listinfo/sanfrancisco-pm</a><br>
</blockquote></div>