<div dir="ltr">#!/usr/bin/perl <br><br>use strict;<br>use warnings;<br><br>sub my_sort(&@) {<br>    my $cb = shift;<br>    $a = shift;<br>    $b = shift;<br><br><br>    # делаем дело здесь<br>    #<br>    #   my $cmp = $cb->();<br>
    #   и т.д.<br>    ...;<br>}<br><br>my @sorted = my_sort { $b cmp $a } ( 'c', 'a', 'b' );<br></div><div class="gmail_extra"><br><br><div class="gmail_quote">2013/2/2 Ivan Petrov <span dir="ltr"><<a href="mailto:i.petro.77.00@gmail.com" target="_blank">i.petro.77.00@gmail.com</a>></span><br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">в том смысле чтобы при использовании strict итп функция сортировки<br>
оперировала переменными $a и $b?<br>
<br>
sub my_sort(&@) {<br>
    my ($cb, @ary) = @_;<br>
    ...<br>
}<br>
<span class="HOEnZb"><font color="#888888">--<br>
Moscow.pm mailing list<br>
<a href="mailto:moscow-pm@pm.org">moscow-pm@pm.org</a> | <a href="http://moscow.pm.org" target="_blank">http://moscow.pm.org</a><br>
</font></span></blockquote></div><br><br clear="all"><br>-- <br>//wbr, Dmitry L.
</div>