首页 / PERL / Perl学习笔记之文件操作
Perl学习笔记之文件操作
内容导读
互联网集市收集整理的这篇技术教程文章主要介绍了Perl学习笔记之文件操作,小编现在分享给大家,供广大互联网技能从业者学习和参考。文章包含1075字,纯文字阅读大概需要2分钟。
内容图文
Perl对文件的操作,跟其它的语言类似,无非也就是打开,读与写的操作。
1. 打开文件
#! c:/perl/bin/perl -w use utf8; use strict; use warnings; my $filename = ‘test.txt‘; # 或者用绝对路径,如: c:/perl/Learn/test.txt if(open(MYFILE,$filename)) # MYFILE是一个标志 { printf "Can open this file:%s!", $filename; close(MYFILE); } else{ print "Can‘t open this file!"; }
2. 读取文件
#! c:/perl/bin/perl -w use utf8; use strict; use warnings; my $filename = ‘test.txt‘; if(open(MYFILE,$filename)) { my @myfile = <MYFILE>; #如果要读取多行,用此方法,如果只读取一行为:$myfile = <>; my $count = 0; #要读取的行数,初始值为0 printf "I have opened this file: %s\n", $filename; while($count < @myfile){ #遍历 print ("$myfile[$count]\n"); #注意此种写法. $count++; } close(MYFILE); } else{ print "I can‘t open this file!"; } exit;
3. 写入文件
#! c:/perl/bin/perl -w use utf8; use strict; use warnings; my $filename = ‘test.txt‘; if(open(MYFILE,">>".$filename)) #此种写发,添加不删除 { #此种写法,重写文件内容 MYFILE,">".$filename print MYFILE "Write File appending Test\n"; close(MYFILE); } else{ print "I can‘t open this file!"; } exit;
原文:http://www.jb51.net/article/67833.htm
内容总结
以上是互联网集市为您收集整理的Perl学习笔记之文件操作全部内容,希望文章能够帮你解决Perl学习笔记之文件操作所遇到的程序开发问题。 如果觉得互联网集市技术教程内容还不错,欢迎将互联网集市网站推荐给程序员好友。
内容备注
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 gblab@vip.qq.com 举报,一经查实,本站将立刻删除。
内容手机端
扫描二维码推送至手机访问。