在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 教师闺蜜祝福语简短