如何在Perl脚本中接收用户输入后切换Linux目录？

你的脚本存在几个关键问题，导致切换目录失败，以下是问题分析和修正方案：

问题点 #

• 读取用户输入时，<STDIN>会包含末尾的换行符，导致目录名带无效字符，mkdir可能创建异常目录，后续chdir无法匹配。
• 错误将mkdir $dir的命令输出赋值给$newdir：mkdir成功时无输出，$newdir为空，chdir自然失败。
• 未处理mkdir的错误场景（如目录已存在、权限不足），脚本会继续执行引发后续错误。

修正后的脚本 #

#!/grid/common/bin/perl
use strict;
use warnings; # 开启警告，快速定位潜在问题
use Cwd;

print "Directory name: ";
my $dir = <STDIN>;
chomp $dir; # 移除输入末尾的换行符，确保目录名合法

# 创建目录并检查结果
unless (mkdir $dir) {
    die "Failed to create directory $dir: $!";
}

# 切换目录并验证
chdir $dir or die "Couldn't enter directory $dir: $!";

# 可选：打印当前目录确认切换成功
print "Current directory: " . getcwd() . "\n";

关键修改说明 #

• 加入use strict;和use warnings;：强制变量声明，捕获未定义变量、语法错误等问题，新手调试必备。
• chomp $dir;：清理输入中的换行符，保证目录名与实际创建的目录一致。
• 使用Perl内置mkdir函数替代系统调用：更便于直接捕获错误，无需依赖命令输出。
• 每个操作都添加错误检查：通过die输出具体错误信息，快速定位问题原因。

补充说明 #

Perl脚本的chdir仅会改变脚本自身的工作目录，无法影响运行脚本的shell环境（进程隔离特性）。如果需要让shell切换到目标目录，需使用shell脚本并通过source执行，而非Perl脚本。

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