Perl：コマンドラインからのパスの読み込み

Question

私はperlの初心者です。 CMDコマンドライン（私はバッチファイルを使用）から

$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"; 

私が読ん必要はパス：

私は、コードを持っています。例については ：コピーした後

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

私はあなたがFile::Basenameを使用したいと同じフォルダに

おかげ

Answer 1

をsummary_file_name.xmlを作成したいと思います。これは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配列にあります。