[PerlChina] 关于在rename的使用

在Linux中编写一个程序，目的是从mol文件夹中调取文件到operation文件夹中运行，再把结果传到result文件中。因为
dssmol.exe只能运行input.mol的文件，所以要把它改名。比且运行结果是一个output文件，然后要把它在给名放到result文件
夹中。于是我编写如下程序：
#!/usr/bin/perl

use Cwd;
use File::Path;
use Shell;
use File::Copy;

$home_dir = cwd;
$mol_dir = $home_dir .'/mols';
$operation_dir = $home_dir .'/operation';
$result_dir = $home_dir.'/result';
chair ($mol_dir); #change to molecules directory
@mol = glob ('*.mol'); #get all molecules files
$mol_num = @mol;
print "Total @mol_num molecules.\n";
$i=0;
while ($i<$mol_num) {
print "mol_num[$i]";
rename ("mol_num[$i] , input.mol")||die $!;
move "input.mol , /home_dir/operation";
system "rm -rf $input.mol";
chair($operation_dir); #begin to run MODEL under this directory
system " ./dssmol.exe";
move "output , /home_dir/result/";
system "rm -rf $input.mol";
system "rm -rf $output";
chair($result_dir); #change to result directory
rename ("output , $i")||die $!;
system "rm -rf $output";

i++};
在运行后出现的问题是
Not enough arguments for rename at mol1.pl line 22, near ""mol_num
[$i] , input.mol")"
Not enough arguments for rename at mol1.pl line 31, near ""output ,
$i")"
Execution of mol1.pl aborted due to compilation errors.

由于刚学perl，我不知道怎么处理这个问题。。。

--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---