我是 Perl 的新手,但我想让以下返回更具可读性。我别无选择,只能维护这个旧代码。我读过一些从不同时使用的qx
地方$_
我正在考虑存储$_
一个变量并返回它。return 的最后一个参数是怎么被执行的?对我来说这是一个奇怪的概念(Java 开发人员)
该脚本将 sql 查询的内容输出到命令行,然后对其进行解析并使用它执行各种例程。
堆栈溢出的大师会怎么想?
sub query_db {
my $cmd = "cat /tmp/sql.$$ | db.sh -d ~~~ $db";
return map {chomp; $_;} qx/$cmd/;
}
foreach my $row (&query_db($sql, "database")) {
blah
}