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

Вы хотите использовать File::Basename. Это стандартная библиотека в Perl, по крайней мере, начиная с 5.14, поэтому вам не нужно устанавливать что-либо новое.

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

Для получения дополнительной информации см. Perl Docs.

Answer 2

Вы спрашиваете, как программа Perl получает аргументы командной строки? Вы найдете их в массиве @ARGV.