Detect làm thế nào một chương trình con được gọi là trong Perl

Question

Tôi muốn phát hiện làm thế nào một chương trình con được gọi là để tôi có thể làm cho nó hành xử khác nhau tùy thuộc vào từng trường hợp:

# If it is equaled to a variable, do something: 
$var = my_subroutine(); 

# But if it's not, do something else: 
my_subroutine(); 

Là có thể?

Answer 1

Sử dụng wantarray

if(not defined wantarray) { 
    # void context: foo() 
} 
elsif(not wantarray) { 
    # scalar context: $x = foo() 
} 
else { 
    # list context: @x = foo() 
} 

Answer 2

Vâng, những gì bạn đang tìm kiếm là wantarray:

use strict; 
use warnings; 

sub foo{ 
    if(not defined wantarray){ 
    print "Called in void context!\n"; 
    } 
    elsif(wantarray){ 
    print "Called and assigned to an array!\n"; 
    } 
    else{ 
    print "Called and assigned to a scalar!\n"; 
    } 
} 

my @a = foo(); 
my $b = foo(); 
foo(); 

Mã này xuất ra như sau:

Called and assigned to an array! 
Called and assigned to a scalar! 
Called in void context!