发出移动文件

时间:2016-07-08 11:19:48

标签: perl

我有以下file_name:

my $filepath = "$common::conf{'admin_dir'}/carts/$paygate::cart_id.csv";

我需要将文件移动到另一个目录,但我遇到了问题,我使用了重命名功能。

rename $filepath, "$common::conf{'admin_dir'}/carts/spent/$paygate::cart_id.csv.bak";

但是,它没有工作,我没有错误(使用严格),文件仍保留在同一个地方但不移动。

有人能说明问题是什么吗?

1 个答案:

答案 0 :(得分:1)

[以下未经过测试]:我认为该文件:: copy或rename与标量变量一起使用而不支持方法[::]。

$common_conf = "$common::conf{'admin_dir'}";
$paygate_cart_id_csv = "$paygate::cart_id.csv";
$paygate_cart_id_csv_bak = "$paygate::cart_id.csv";

my $orgfilepath = "$common_conf/carts/$paygate_cart_id_csv";
my $destfilepath = "$common_conf/carts/spent/$paygate_cart_id_csv_bak";

rename $filepath, $destfilepath;