0

私はperlの初心者で、1つのことに問題があります。

私はコードを持っています:

$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コピー後、同じフォルダに作成したい

ありがとう

4

2 に答える 2

1

Perlプログラムがコマンドライン引数を取得する方法を尋ねていますか？それらは@ARGV配列内にあります。

于 2012-04-24T12:46:59.607 に答える
0

を使用しますFile::Basename。これは Perl の標準ライブラリであり、少なくとも 5.14 には含まれているため、新しいものをインストールする必要はありません。

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

詳細については、Perl ドキュメントを参照してください。

于 2012-04-24T12:37:35.990 に答える