perl 读写文件
#http://perlmaven.com/open-and-read-from-files
#mode operand create truncate
#read <
#write > yes yes
#append >> yes
Case 1: Throw an exception if you cannot open the file:
use strict; use warnings; my $filename = 'data.txt' ; open ( my $fh , '<:encoding(UTF-8)' , $filename ) or die "Could not open file '$filename' with the error $!" ; while ( my $row = < $fh >) { chomp $row ; print "$row\n" ; } close ( $fh ); |
Case 2: Give a warning if you cannot open the file, but keep running:
use strict; use warnings; my $filename = 'data.txt' ; if ( open ( my $fh , '<:encoding(UTF-8)' , $filename )) { while ( my $row = < $fh >) { chomp $row ; print "$row\n" ; } close ( $fh ); } else { warn "Could not open file '$filename' $!" ; } |
Case 3: Read one file into array
use strict; use warnings; my $filename = 'data.txt' ; open (FILEIN, "<" , $filename ) or die "Could not open file '$filename' with the error $!" ; my @FileContents = <FILEIN>; for my $l ( @FileContents ){ print "$l\n" ; } close FILEIN; |
end
分类:
perl
【推荐】国内首个AI IDE,深度理解中文开发场景,立即下载体验Trae
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步
· 记一次.NET内存居高不下排查解决与启示
· 探究高空视频全景AR技术的实现原理
· 理解Rust引用及其生命周期标识(上)
· 浏览器原生「磁吸」效果!Anchor Positioning 锚点定位神器解析
· 没有源码,如何修改代码逻辑?
· 分享4款.NET开源、免费、实用的商城系统
· 全程不用写代码,我用AI程序员写了一个飞机大战
· MongoDB 8.0这个新功能碉堡了,比商业数据库还牛
· 白话解读 Dapr 1.15:你的「微服务管家」又秀新绝活了
· 上周热点回顾(2.24-3.2)
2012-04-28 比较perl+python