perl打开读取文件（open）

时间：2018-05-08 19:28:35 阅读：173 评论：0 收藏：0 [点我收藏+]

在Perl中可以用open或者sysopen函数来打开文件进行操作，这两个函数都需要通过一个文件句柄（即文件指针）来对文件进行读写定位等操作。
下面以open函数为例：
1：读：open(文件句柄，"<文件名")/open(文件句柄，"文件名")，前提文件必须已经存在，否则会返回0，出错信息在$!中。
2：写：open(文件句柄，">文件名")，文件如果不存在，那么创建之，如果存在，内容被清空，长度截为0，$!中有出错信息。
3：追加：open(文件句柄,">>文件名")，基本同写，但有一点，文件中的内容不会被清空，新的内容会追加到原文后面。
4：读写：open(文件句柄,"+<文件名")，通过“+<”模式，你可以既可以读文件，又可以写文件。你可以通过tell() 函数在文件内部移动，通过seek()函数进行定位。如果文件不存在，就会被创建。如果文件已经存在，原来的数据不会被清除。
　　open(文件句柄,"+>文件名")，通过“+》”模式，可以同时读写文件，但与上面不同的是，它是破怀性写，会清除原来的内容。
例子：

open(FD,"info.txt")||die("Can not open the file!$!n");
@line=<FD>;
close(FD);

上面的例子是打开info.txt这个文件并把文件内容读入@line中，关闭文件。

例子：（打开一个在电脑G盘111文件下的一个文件）

open(IN,"G:/111/mylove.txt");
while($line=<IN>){
        print $line;
}

from：http://blog.sina.com.cn/s/blog_4af3f0d20100cz8i.html

perl打开读取文件（open）

标签：例子内容文件 bsp rom size can span 指针

原文地址：https://www.cnblogs.com/YLuluuu/p/9009783.html

踩

(0)

评论一句话评论（0）

分享档案

更多>

2021年07月29日 (22)
2021年07月28日 (40)
2021年07月27日 (32)
2021年07月26日 (79)
2021年07月23日 (29)
2021年07月22日 (30)
2021年07月21日 (42)
2021年07月20日 (16)
2021年07月19日 (90)
2021年07月16日 (35)

周排行