在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");热门推荐
10 小红书平安祝福语简短
11 生日祝福语大全女孩简短
12 收生日红包祝福语 简短
13 领证幽默祝福语简短
14 法考面试祝福语简短
15 老哥出门祝福语简短语
16 送灯祝福语简短独特
17 幼儿狗年祝福语大全简短
18 好听的元旦简短祝福语