Perl脚本搜索/etc/passwd时if语句语法错误求助

嘿，我来帮你搞定这段Perl脚本的问题～先梳理下你代码里的几个关键错误，再给你修正后的可运行版本：

原代码的核心问题 #

• 输入未处理换行符：你用<STDIN>读取用户名时，会把用户输入的回车换行也一起读进$username里，这会导致后面匹配/etc/passwd里的用户名时完全匹配不上，必须用chomp去掉这个换行符。
• Open与循环的语法错误：原代码把open和while写在一起的方式完全不符合Perl语法，应该先成功打开文件，再逐行读取内容。
• If条件的写法完全错误：你写的if (PASSWD ((split(/:/)[0] =~ $username))逻辑混乱，Perl根本无法识别，正确的做法是在循环里对每一行拆分字段，再和输入的用户名做比较。
• 旧式文件句柄不安全：原代码用的全局文件句柄PASSWD是比较老旧的写法，推荐用词法文件句柄（比如my $passwd_fh）搭配3参数open，更安全也更易维护。

修正后的可运行代码 #

print "Username? ";
my $username = <STDIN>;
chomp $username;  # 移除输入末尾的换行符，避免匹配失败

# 用3参数open打开文件，失败时输出错误信息
open my $passwd_fh, '<', '/etc/passwd' or die "无法打开/etc/passwd文件: $!";

# 逐行读取/etc/passwd的内容
while (my $line = <$passwd_fh>) {
    chomp $line;
    # 按冒号拆分每行的字段，得到用户信息数组
    my @user_info = split /:/, $line;
    my $current_user = $user_info[0];
    my $home_directory = $user_info[5];

    # 精确匹配用户名（字符串比较要用eq，==是数字比较哦）
    if ($current_user eq $username) {
        print "找到用户 $username，家目录是: $home_directory\n";
        last;  # 找到目标用户后直接退出循环，不用继续读文件
    }
}

close $passwd_fh;

额外说明 #

• 用eq做字符串比较：Perl里字符串相等判断要用eq，如果用==会把字符串转成数字比较，结果肯定不对。
• or die的作用：如果因为权限问题或者文件不存在打不开/etc/passwd，脚本会直接输出错误信息并退出，方便你排查问题。
• last语句：找到匹配的用户后就退出循环，不用再遍历剩下的行，提升脚本效率。

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