Perl 脚本调用 unix 命令系统 unzip
我正在尝试使用 Perl 脚本解压缩文件。为了解压缩该文件，我选择尝试调用 UNIX 命令系统 unzip。我的问题似乎是该命令没有读取变量。
my $file_path = "/home/data"
my $file_name = "TEST.ZIP"
system ('unzip $file_path/$file_name');
当我运行命令时，我看到了。
解压缩：找不到 /、/.zip 或 /.ZIP。
我该如何解决这个问题？
I am trying to unzip a file using a Perl script. In order to unzip the file I chose to try and invoke the UNIX command system unzip. My problem seems to be that the command is not reading the variables.
my $file_path = "/home/data"
my $file_name = "TEST.ZIP"
system ('unzip $file_path/$file_name');
When I run the command I see.
unzip: cannot find /, /.zip or /.ZIP.
How do I solve this problem?
如果你对这篇内容有疑问，欢迎到本站社区发帖提问 参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。
绑定邮箱获取回复消息
由于您还没有绑定你的真实邮箱，如果其他用户或者作者回复了您的评论，将不能在第一时间通知您！
发布评论
评论（2）
如果要使用字符串插值，请使用双引号。
Use double quotes if you want to use string interpolation.
最好使用相关的 (
Archive::Extract) 模块。Better use a relevant (
Archive::Extract) module.