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