用 Perl 复制、重命名和删除文件

以下是 Perl 范例，它会打开现有的文件文件 1.txt，逐行读取，然后生成另一个副本文件文件 2.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" );

此函数重命名有两个参数，它只是重命名现有文件。

删除现有文件

以下是示例，它演示如何使用 unlink 函数删除文件 file1.txt。

#!/usr/bin/perl
unlink ("/usr/test/file1.txt");

更新时间：2019-11-29

1K+ 次查看

开启你的 职业生涯

获得课程认证

开始
广告