#copy / move 实用方法:
#usr/bin/perl -w
use File::Copy;
copy("C:/Users/liuweic/Desktop/1.jpg","C:/Users/liuweic/Desktop/2.jpg") or die "can not copy";
move("C:/Users/liuweic/Desktop/1.jpg","C:/Users/liuweic/Desktop/3.jpg") or die "can not copy";
转载请注明出处,作者No. Liu