perl 文件操作

<  代表读  等同于  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);