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 Docs 。