0

我编写了一个带有命令行参数的脚本-s，并允许我在其后添加一个搜索词。

然后它将它输入到我的第一个函数中，连接到 SQL 数据库，搜索该术语，并以数组的形式返回结果。

然后它调用第二个函数，打印数组，并根据是否找到任何结果输出 a-1或 a 。0

最后应该检查结果是否不等于0，如果是则打印出没有找到结果。

一切正常，但我的结果打印了两次。知道为什么吗？

#!/usr/bin/perl -w
use warnings;
use DBI;
use Getopt::Std;
use strict;

getopt('s:');
our ($opt_s);
my $search = $opt_s;

my @array = function1($search);
&function1($search);

&function2(@array);
if (&function2(@array) != 0) {
    print "No results found for '$search'", "\n";
}

sub function1 {
    my $search = $_[0];

    our $dbh = DBI->connect("dbi:mysql:dbname=database", "root", "password")
        or die $DBI::errstr;

    my $sql = $dbh->selectall_arrayref(
        "SELECT Player from Players_Sport where Sport like '$search'")
        or die $DBI::errstr;

    my @array = map { $_->[0] } @$sql;

    $dbh->disconnect
        or warn "Disconnection failed: $DBI::errstr\n";

    return @array;
}

sub function2 {
    my @array = @_;
    my $arrayvalue;

    print("\n", "@array", "\n");

    if (scalar(@array) == 0) {
        $arrayvalue = -1;
    }
    else {
        $arrayvalue = 0;
    }

    return $arrayvalue;
}
4

1 回答 1

1

你打&function2(@array);了两次电话，这会导致"\n", "@array", "\n"被打印两次。只需调用一次函数，将返回值存储在变量中，然后测试变量，而不是再次调用函数——或者，更好的是，在这种特定情况下，您可以完全省去第一次调用。

于 2013-05-10T20:48:30.210 回答