Perl中copy函数怎么使用

在Perl中，copy函数用于将一个文件的内容复制到另一个文件中。它的使用方式如下：

copy($source, $destination) or die "Unable to copy file: $!";

其中，$source是源文件的路径，$destination是目标文件的路径。如果复制成功，copy函数会返回1；如果复制失败，它会返回undef。为了处理复制失败的情况，可以使用die函数打印错误信息。

以下是一个完整的示例：

use File::Copy;

my $source = "source.txt";
my $destination = "destination.txt";

copy($source, $destination) or die "Unable to copy file: $!";
print "File copied successfully.\n";

在上述示例中，源文件为source.txt，目标文件为destination.txt。如果源文件存在且可读，目标文件不存在或者可写，那么源文件的内容将被复制到目标文件中。如果复制成功，程序会打印"File copied successfully."；如果复制失败，程序会打印错误信息并退出。