Perl脚本调用unix命令系统unzip

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）模块。