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

Question

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

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

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

当我运行命令时，我看到了。

解压缩：无法找到/，/。zip或/.ZIP。

如何解决这个问题？

Answer 1

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

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

Answer 2

更好地使用相关的（Archive::Extract）模块。