perl faq 学习之复制文件
目的：复制文件。#!/usr/bin/perl
use warnings;
use File::Copy;
$original = 'test.file';
$new_copy = 'test_copy.file';
# 注意，如果目标文件存在会直接覆盖。
copy($original, $new_copy) or die "Copy failed: $!";
print 'copy over!';
one line code on command line :
perl -MFile::Copy -we "copy(\"test.file\", \"test_copy.file\") or die die \"Copy failed: $!\""
原文：
http://faq.perl.org/perlfaq5.html#How_can_I_copy_a_fil
页:
[1]