如何用perl将这个目录下产生的文件转移至另一个目录

choose2005

用perl system一个系统命令，如
当前目录是/home/zsf/UNAFold/test.dir/
用perl  system(UNAFold.pl /home/zsf/aa.txt);后
UNAFold.pl命令将产生10个文件，并且产生在了当前目录下，
我想将其产生在aa.txt所在的目录/home/zsf/下面，该怎么办？  （我想perl脚本就在/home/zsf/UNAFold/test.dir/下执行）
谢谢：）

DQP

1. 
   
2. use File::Copy;
   
3. move balabal.....
   

复制代码

or

1. 
   
2. system('mv balabal....');
   

复制代码

choose2005

问题是我不想在运行程序的目录下产生文件，想直接在aa.txt所在的目录/home/zsf/下产生，怎么办呢

xlwang_0903

在UNAFold.pl脚本中指定生成文件的路径~

flw

use FindBin;

chdir $FindBin::Bin;

choose2005

谢谢大家的帮助