perl 文件操作
发布时间:2020-12-16 00:25:07 所属栏目:大数据 来源:网络整理
导读:?代表读 ?等同于 ?r ? 代表写 等同于 ?w "" 添加到文件尾部 $! 错误信息 读文件 open ( my $fh," ","xx.xx") ? ? ? ? or die "Can't open file xx.xx : ? $! "; while ( $fh ) { ? ? ? ? chomp; ? ? ? ? print; } 写文件 open ( my $fh," ","xx.xx") ? ? ? ?
< ?代表读 ?等同于 ?r
?> 代表写 等同于 ?w
">>" 添加到文件尾部
$! 错误信息
读文件
open ( my $fh,"
<
","xx.xx")
? ? ? ? or die "Can't open file xx.xx :
?
$!";
while ( < $fh> ) {
? ? ? ? chomp;
? ? ? ? print;
}
写文件
open ( my $fh,"
>>","xx.xx")
? ? ? ? or dir "Can't create file: $!";
print $fh $content;
print 文件句柄 内容;
判断文件是否存在
if ( -e "xx.xx") {
? ? ? ? 存在
}else{
? ? ? ? 不存在
}
关闭文件
close ( $fh);
(编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |