Perl-将文件从DIR1移动到DIR2

Question

我正在尝试使用Perl脚本将文件从DIR1移动到DIR2。我的代码可以编译，但不幸的是不能正常工作。提前感谢的建议

#!/usr/bin/perl -w
use File::Copy;
use Cwd 'abs_path';
if ( @ARGV != 2 ) {
    die "Script takes two parameters: dir1 dir2";
}
if ( -d $ARGV[0] && -d $ARGV[1]  )
{
    opendir my $DIR, $ARGV[0] or die "Read error: $!";
    while(my $file = readdir $DIR ) 
    {
        next if ($file eq "." or $file eq "..");
            my $filepath = abs_path($file);
            print "$filepathn";
            move $filepath, $ARGV[1];
    }
    closedir $DIR;
}
else
{
    print "Both arguments must be directories!n";
}

脚本打印DIR1中的所有文件，但移动失败。

Answer 1

readdir仅返回给定目录中的文件名。因此，要获得一个绝对的文件路径，您需要预先设置$ARGV[0]。有关详细信息，请参阅readdir的perldoc。