只是不能让Perl按预期工作(条件和变量声明)

1. 您需要明确检查定义。

   如果要在定义$client时进入循环, 使用 if ( defined $client ) .

   如果要在定义$client和有效整数时输入循环, 使用 if ( defined $client && $client =~ /^-?\d+$/ ) . 我假设它是上下文中的一个整数,如果它可以是一个浮点型,则需要增强regex——有一个标准的perl库,其中包含预封装的regex,包括与float匹配的regex。如果需要非负整数,请删除 -? 从Regex开始。

   如果要在定义$client且非零(并且假设它不应该是空字符串)时进入循环, 使用 if ( $client ) .

   如果要在定义$client和有效的非零int时进入循环, 使用 if ( $client && $client =~ /^-?\d+$/ ) .

2. 您的@id是“undef”,当 if 条件为false,如果依赖@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;之后在main中编写代码)并且问题得到解决。

结论:
我知道,每次你写一个库或者修改一个库,确保它的最后一个语句返回真的;

哦,我的…试试这个例子…

# 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定义的$client;)” 但几乎可以肯定 不是 你在找什么!在程序早期确保$client有一些定义要容易得多(例如 $Client=“”; )还要注意Kaklon关于 氖 和 !=
2. 如果(x)材料其他 不是有效的Perl。你可以这样做: 如果(x)材料其他1; 但这有点像在求问题,因为真正的问题是对变量的测试,而不是一个else子句。
3. 对不起,没有线索-我想问题出在别的地方。

我也赞同Kinopiko的建议 “使用严格”; 在程序开始时。这意味着您使用的任何$variable@都必须预先定义为 “我的$varable;我的@that;我的%you;” 这看起来像是更多的工作,但这比在代码中处理未定义变量和已定义变量的工作要少。这是个好习惯。

注意 我的 变量只存在于定义它们的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.