Subroutine Perl

  1. Home
  2. Perl
  3. Subroutine
  4. Wantarray function
#!/usr/local/bin/perl 
@array = &mysub(); 
$scalar = &mysub(); 
sub mysub { 
    if (wantarray()) { 
        print ("true\n"); 
    } else { 
        print ("false\n"); 
    } 
}