当前位置: 代码网 > it编程>网页制作>Perl > Perl读写文件简单示例

Perl读写文件简单示例

2024年05月18日 Perl 我要评论
!/usr/bin/perl -w use strict; #print "please input a string "; #my $line = <stdin>; #print $

!/usr/bin/perl -w
 use strict;
 
 #print "please input a string\n";
 #my $line = <stdin>;
 #print $line;
 
 #wirte a file
 open(fh, ">aa.txt") or die $!; 
 print fh "hello\n";#向文件写入内容
 print fh "ok\n";
 
 close(fh);
 
 #open a file
 open(fh, "aa.txt") or die $!;
 my @f = <fh>;#将文件内容读出
 print @f;
 
 close(fh);

(0)

相关文章:

版权声明:本文内容由互联网用户贡献,该文观点仅代表作者本人。本站仅提供信息存储服务,不拥有所有权,不承担相关法律责任。 如发现本站有涉嫌抄袭侵权/违法违规的内容, 请发送邮件至 2386932994@qq.com 举报,一经查实将立刻删除。

发表评论

验证码:
Copyright © 2017-2025  代码网 保留所有权利. 粤ICP备2024248653号
站长QQ:2386932994 | 联系邮箱:2386932994@qq.com