1.你需要明确地检查definedness。
如果你想在定义了$client之后进入循环，可以使用if ( defined $client )。
如果你想在$client被定义并且是一个有效的整数时进入循环，使用if ( defined $client && $client =~ /^-?\d+$/ )。我假设它是一个来自上下文的整数，如果它可以是一个浮点数，正则表达式需要增强-有一个标准的Perl库包含预封装的正则表达式，包括匹配浮点数的正则表达式。如果你需要一个非负的int，从正则表达式的开始删除-?。
如果你想在定义了$client并且它是一个非零值（并且假设它不应该是一个空字符串）的时候进入循环，那么使用if ( $client )。
如果你想在定义了$client并且是一个有效的非零int的时候进入循环，使用if ( $client && $client =~ /^-?\d+$/ )。
1.当if条件为false时，您的@ids为“undef”，如果它依赖于@ids是一个数组，则稍后可能会中断代码。由于您实际上没有指定如何在没有else的情况下中断脚本，因此这是最可能的原因。
请查看此版本是否有效（使用上面您需要的任何“if”条件，我选择了最后一个，因为它似乎与原始代码的意图最接近-仅输入非零整数）：

带调试的简化代码

use Data::Dumper;
open(my $tmp_file, ">", "/tmp/some_bad.log") or die "Can not open log file: $!\n";
@ids = (); # Do this first so @ids is always an array, even for non-client!
print $tmp_file "Before the if: ". Data::Dumper->Dump([\@ids, $client]) . "\n";
if ( $client && $client =~ /^-?\d+$/ ) # First expression catches undef and zero
{
    print $tmp_file "Start the if: ". Data::Dumper->Dump([\@ids, $client]) . "\n";
    my $st = &sql_query("select id from table where client=$client");
    print $tmp_file "Before the while loop: ref(st)='". ref($st) . "'\n";
    while(my $row = $st->fetchrow())
    {
       print $tmp_file "Row the while loop: ". Data::Dumper->Dump([row])  . "'\n";
       push(@ids, $row->[0]);
    }
    print $tmp_file "After the while loop: ref(st)='". ref($st) . "'\n";
    # No need to undef since both variables are lexically in this block only
}
print $tmp_file "After the if\n";
close($tmp_file) or die "Can not close file: $!\n";

字符串

当检查字符串时，==和！=应该分别是'eq'或'ne'

if( $client != "" )

字符串
应

if( $client ne "" )

型
否则你不会得到你想要的。

始终开始您的脚本：

use warnings;
use strict;

字符串
这些会给你提供给予有用的信息。
然后你可以写：

my @ids;

if (defined $client) {
    @ids = (); # not necessary if you run this part only once
    my $st = sql_query("select id from table where client=$client");
    while( my ($id) = $st->fetchrow ) {
       push @ids, $id;
    }
} else {
    warn '$client not defined';
}

if (@ids) {  # Your query returned something
    # do stuff with @ids
} else {
    warn "client '$client' does not exist in database";
}

型

而不是

if( $client != "" )

字符串
尝试

if ($client)

型
另外，如果您

use warnings;
 use strict;

型

我发现这段代码位于locallib.pl中主代码的末尾，在这之后还有子定义，而locallib.pl是一个库而不是程序文件，所以它的最后一条语句必须返回true，在库的末尾有一个简单的1;语句可以确保（把它放在子定义之后，以确保noobody在1;之后的主代码中编写代码），问题得到了解决。
结论是：

我学到了每次编写或修改一个库时，确保它的最后一个语句返回true;

哦天...试试这个例子...

# Move the logic into a subroutine
# Forward definition so perl knows func exists
sub getClientIds($);       

# Call subroutine to find id's - defined later.
my @ids_from_database = &getClientIds("Joe Smith");

# If sub returned an empty list () then variable will be false.
# Otherwise, print each ID we found.

if (@ids_from_database) {
    foreach my $i (@ids_from_database) {
        print "Found ID $i \n";
    }
} else {
    print "Found nothing! \n";
}

# This is the end of the "main" code - now we define the logic.

# Here's the real work    
sub getClientIds($) {
    my $client = shift @_;       # assign first parameter to var $client
    my @ids    = ();             # what we will return

    # ensure we weren't called with &getClientIds("") or something...
    if (not $client) {
        print "I really need you to give me a parameter...\n";
        return @ids;
    }

    # I'm assuming the query is string based, so probably need to put it 
    # inside \"quotes\"
    my $st = &sql_query("select id from table where client=\"$client\"");

    # Did sql_query() fail?
    if (not $st) {
        print "Oops someone made a problem in the SQL...\n";
        return @ids;
    }

    my @result;

    # Returns a list, so putting it in a list and then pulling the first element
    # in two steps instead of one.
    while (@result = $st->fetchrow()) {
        push @ids, $result[0];
    }

    # Always a good idea to clean up once you're done.
    $st->finish();

    return @ids;
}

字符串
针对您的具体问题：
1.如果你想测试$client是否被定义，你需要**“if（eval { defined $client; }）"，但这几乎肯定不是你要找的！确保$client在程序的早期就有一些定义要容易得多（例如$client =“";）。还要注意Kaklon关于ne和！=**之间的区别的回答。
1.**if（X）{ stuff } else { }不是有效的perl。你可以这样做：if（X）{ stuff } else { 1; }但这有点回避问题，因为真实的问题是变量的测试，而不是else子句。
1.抱歉，没有线索-我想问题出在别处。
我也赞同Kinopiko的建议，在程序的开头添加“use strict;”。这意味着你使用的任何$variable @that %都必须被预定义为“my $varable; my @that; my %you;"**这看起来工作量很大，但比在代码中处理未定义变量和已定义变量要少。这是一个很好的习惯。
请注意，my变量只存在于定义它们的squiggliez中（整个文件周围都有隐式的squiggliez：

my $x = 1;
if ($x == 1) 
{
    my $x = 2;
    print "$x \n";    # prints 2. This is NOT the same $x as was set to 1 above.
}
print "$x \n";        # prints 1, because the $x in the squiggliez is gone.

型