在Perl中，将参数传递到一个参数的子例程中

Question

，所以我的问题基于这个问题：如何将子例程作为参数传递给另一个子例程

问题是：我可以将参数/参数传递到子例程中（这本身也是参数）？

sub question {
print "question the term";
return 1;
}
my $question_subref = &question;
answer($question_subref); 
sub answer {
    my $question_subref = shift;
    print "subroutine question is used as parameters";
    # call it using arrow operator if needed
    $question_subref -> ($PassSomethingHere,$SomethingElse);
    return 1;
} 

可以做到吗？

$ Question_subref->（ $ passsomethinghere，$ sosingselse ）;

---

这是实际的代码：

my $SelectResults = sub {
            my @results;
            $sql = $_[0];
            $sth = $_[1];
            $sql =~ s/select/SELECT/gi;
            if(StrContains($sql, "SELECT"))
            {
                @results= $sth->fetchrow_array();
                foreach my $tab (@results) {
                    print $tab . "n";
                }
            }
            return @results;
        };

sub MySQLExe
{
    my @results;
    my $db = "fake";
    my $usr = "user";
    my $pw = "password";
    $db_handle = DBI->connect("dbi:mysql:database=$db;mysql_socket=/var/lib/mysql/mysql.sock;", $usr, $pw) 
        or die "Connection Error: $DBI::errstr n";
    my $sql = $_[0];
    print $sql . "n";

    #Prepare SQL query
    my $sth = $db_handle->prepare($sql)
        or die "Couldn't prepare query '$sql': $DBI::errstrn";

    $sth->execute
        or die "Couldn't execute query '$sql': $DBI::errstrn";

    # I can't seem to get this to work...   
    # optional Function here - get rows from select statement or something else.
    # pass in the function holder as the second parameter
    my $Func = $_[1];
    @results = $Func -> ($sql, $sth);

    #disconnect  from database
    $sth->finish;
    $db_handle->disconnect or warn "Disconnection error: $DBI::errstr n";

    return(@results);
}

和实际用法：

my @tables = MySQLExe("SELECT table_name FROM information_schema.tables where table_schema='$table';", 
    $SelectResults);

Answer 1

如链接问题的答案所暗示，您可能是关闭的内容（另请参见perl.com文章，wikipedia条目）：

sub make_questioner {
  my ($text) = @_;
  return sub {
    my ($politeness) = @_;
    print $text, $politeness, "n";
    my $answer = <>;
    chomp $answer;
    $answer;
  };
}
my $questioner = make_questioner("What... is your name");
my $name = $questioner->(', please');
print "Your name is '$name'.n";

您会注意到，此处的演示代码合并了传递的有关创建关闭的信息，还使用传递给关闭的参数。