Perl脚本if判断双分支同时执行且文件写入异常求助

核心错误原因 #

• 条件判断逻辑错误：if分支中使用了赋值运算符=而非字符串相等比较运算符eq。Perl中赋值表达式默认返回真值，因此两个if分支会依次执行，同时还会覆盖$StepInfo的原始读取值。
• 子例程传参逻辑错误：调用stepcheck更新状态时仅传入了新状态值，未传入状态文件路径，stepcheck会将传入的状态值作为文件名创建写入，因此生成了dh_fail、Test两个无效文件。
• 隐藏问题1：读取状态文件后未去除末尾换行符，即使判断逻辑正确，也会因为匹配值带换行导致匹配失败。
• 隐藏问题2：文件打开操作未加错误校验，遇到权限不足、文件不存在等情况时会静默失败，难以排查问题。

修正后完整代码 #

#!/usr/bin/perl
use strict;
use warnings;

my $filename1 = "/usr/local/tmp/status.txt";

# 读取状态文件
open(my $input_fh, '<', $filename1) or die "无法打开状态文件: $!";
my $StepInfo = do { local $/; <$input_fh> };
close $input_fh;
chomp $StepInfo; # 去除末尾换行符
print "读取到的状态值: $StepInfo\n";

# 分支判断，使用eq做字符串比较
if ($StepInfo eq "Fresh" ){
    step1($filename1);
} elsif ($StepInfo eq "stp_fail"){
    step2($filename1);
}

sub stepcheck {
    my ($new_status, $file_path) = @_;
    open(my $fh, '>', $file_path) or die "无法写入状态文件: $!";
    print $fh "$new_status\n";
    close $fh;
}

sub step1 {
    my $status_file = shift;
    print "Step1 completed\n";
    stepcheck('dh_fail', $status_file);
}

sub step2 {
    my $status_file = shift;
    print "Step2 completed\n";
    stepcheck('Test', $status_file);
}

改动说明 #

1. 新增use strict;和use warnings;开启严格校验和警告提示，便于提前捕获语法错误。
2. 所有文件操作都增加了错误捕获逻辑，出现异常会直接打印错误原因退出。
3. 调整条件判断使用eq做字符串比较，且改为elsif避免不必要的分支判断。
4. 调整所有子例程的传参逻辑，调用时传入状态文件路径，确保stepcheck写入的是正确的状态文件。
5. 读取状态值后用chomp去除末尾换行，保证匹配准确性。

内容的提问来源于stack exchange，提问作者user16012844