sort: argument

[Jiri Polcar]

    Zdravim,

prave jsem resil jednu "zahadu". Cekal jsem, ze kdyz napisu

    @result = sort fce_co_vraci_seznam( $argument ),

tak v @result bude setridenej seznam, kterej vrati fce
fce_co_vraci_seznam. Tak tomu ale neni. Tady posilam kod, kterym jsem to
testoval. Muze me nekdo vysvetlit co se ve kterym pripade deje? No,
alespon v 1., 2., 5. a 6..

Diky.

--source---
    #!/usr/bin/perl -w

    use strict;
    my @a;
    $, = ', ';

    print "\n1.\n";
    @a =  sort get( 'arg' );
    print @a;

    print "\n2.\n";
    @a =  sort get;
    print @a;

    print "\n3.\n";
    @a =  sort &get;
    print @a;

    print "\n4.\n";
    @a =  sort &get( 'arg' );
    print @a;

    print "\n5.\n";
    @a =  sort( get( 'arg' ) );
    print @a;

    print "\n6.\n";
    @a =  sort( get( 'arg' ) );
    print @a;

    print "\n";


    sub get {
      print wantarray ? "WANTARRARY" : "SCALAR", "\n";
      return qw( x b d e c f a );
    }
--source---

--
JP