Perl скрипт вызывает Unix командную систему Unix

Question

Я пытаюсь распаковать файл, используя скрипт Perl.Для того, чтобы распаковать файл, я решил попытаться вызвать UNIX-систему команд UNIX.Кажется, моя проблема в том, что команда не читает переменные.

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

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

Когда я запускаю команду, я вижу.

unzip: не удается найти /, /.zip или /.ZIP.

Как мне решить эту проблему?

Answer 1

Лучше использовать соответствующий (Archive::Extract) модуль.

Answer 2

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

Используйте двойные кавычки, если вы хотите использовать интерполяцию строк.