在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");热门推荐
3 祝福语简短的微信
10 幼儿祝福语大全简短贺卡
11 感谢教官文案祝福语简短
12 鼠年同事祝福语简短创意
13 元旦祝福语 简短独特群发
14 妈咪跟我生日祝福语简短
15 给儿子新婚祝福语简短
16 伴娘祝福语长文案简短
17 恭喜高考完祝福语简短
18 生日祝福语送老公简短