在Perl中复制，重命名和删除文件
这是Perl示例，它将打开一个现有文件file1.txt并逐行读取并生成另一个副本文件file2.txt。
#!/usr/bin/perl
# Open file to read
open(DATA1, "<file1.txt");
# Open new file to write
open(DATA2, ">file2.txt");
# Copy data from one file to another.
while(<DATA1>) {
print DATA2 $_;
}
close( DATA1 );
close( DATA2 );重命名文件
这是Perl示例，它显示了如何将文件file1.txt重命名为file2.txt。假设文件在/usr/test目录中可用。
#!/usr/bin/perl
rename ("/usr/test/file1.txt", "/usr/test/file2.txt" );重命名此函数有两个参数，它只是重命名现有文件。
删除现有文件
这是一个示例，显示了如何使用取消链接功能删除文件file1.txt。
#!/usr/bin/perl
unlink ("/usr/test/file1.txt");