Perl脚本调用unix命令系统解压答案

【问题标题】：Perl script invoke unix command system unzipPerl脚本调用unix命令系统解压
【发布时间】：2011-10-24 16:45:13
【问题描述】：

我正在尝试使用 Perl 脚本解压缩文件。为了解压缩文件，我选择尝试调用 UNIX 命令系统 unzip。我的问题似乎是命令没有读取变量。

my $file_path = "/home/data"
my $file_name = "TEST.ZIP"

system ('unzip $file_path/$file_name');

当我运行我看到的命令时。

解压缩：找不到 /、/.zip 或 /.ZIP。

我该如何解决这个问题？

【问题讨论】：

【解决方案1】：

system ("unzip $file_path/$file_name");

如果要使用字符串插值，请使用双引号。

【讨论】：

【解决方案2】：

最好使用相关的 (Archive::Extract) 模块。

【讨论】：