perl - Perl：从命令行读取路径

Question

我是 perl 的新手，我在一件事上遇到了一些问题。

我有代码：

$original_file = "y:\\Users\\XXX\\perlScript\\test1.xml";
$new_file = "y:\\Users\\XXX\\perlScript\\summary_test1.xml";
copy($original_file, $new_file) or die "File cannot be copied";

我需要从 cmd 命令行读取路径（我使用批处理文件）。例如：

>summary.bat c>\path\file_name.xml

复制后我想创建summary_file_name.xml到同一个文件夹

谢谢

Answer 1

您是在问 Perl 程序如何获取其命令行参数吗？您会在@ARGV数组中找到它们。

Answer 2

你想用File::Basename. 这是 Perl 中的标准库，至少早在 5.14 时，所以您不需要安装任何新的东西。

use File::Basename;
my($filename, $directories, $suffix) = fileparse($original_file);
my $new_file = $directories . "/summary.xml";

有关详细信息，请参阅Perl 文档。