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 加持,快人一步
· AI与.NET技术实操系列:向量存储与相似性搜索在 .NET 中的实现
· 基于Microsoft.Extensions.AI核心库实现RAG应用
· Linux系列:如何用heaptrack跟踪.NET程序的非托管内存泄露
· 开发者必知的日志记录最佳实践
· SQL Server 2025 AI相关能力初探
· winform 绘制太阳,地球,月球 运作规律
· 震惊!C++程序真的从main开始吗?99%的程序员都答错了
· AI与.NET技术实操系列(五):向量存储与相似性搜索在 .NET 中的实现
· 超详细:普通电脑也行Windows部署deepseek R1训练数据并当服务器共享给他人
· 【硬核科普】Trae如何「偷看」你的代码?零基础破解AI编程运行原理
2012-04-28 比较perl+python