在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");