脚本之家 服务器常用软件
快捷导航
您的位置：首页 → 脚本专栏 → perl → Perl文件读取

Perl文件读取的经典用法分享

 更新时间：2013年02月08日 20:56:43   作者：  
Perl文件读取的经典用法，有需要的朋友可以参考下

用Open() 函数打开文件

打开文件的常用方法是:

复制代码 代码如下:

open(FH, "< $filename")
or die "Couldn't open $filename for reading: $!";

open() 函数通常带有两个参数，第一个为文件句柄，用于指向打开的文件，第二个参数是文件名及模式(文件的打开模式)的混合体，如果文件被成功打开，open()函数返回true，否则为false。我们用“or”来测试该条件。

上述代码中的模式由小于字符(<)来表示。如果文件不存在，open()将返回false。此时，你可以读文件句柄，但不可以写。

大于字符表示写。如果文件不存在，就会被创建。如果文件存在，文件被清除，以前的数据将会丢失。你可以写入文件句柄，但不可以读入。

复制代码 代码如下:

# 如果文件不存在，就创建它
open(FH, "> $filename")
or die "Couldn't open $filename for writing: $!";

如果文件不存在，添加模式(用两个大于符号表示)可以用来创建新文件，如果文件存在，该模式并不会清除原来的数据。

同“<”或“读”模式一样，你只能对文件句柄进行写操作。 (所以的写入内容都添加到文件尾)。企图进行读操作，会产生运行错误。

复制代码 代码如下:

open(FH, ">> $filename")
or die "Couldn't open $filename for appending: $!";

通过“+<”模式，你可以既可以读文件，又可以写文件。你可以通过tell() 函数在文件内部移动，通过seek()函数进行定位。如果文件不存在，就会被创建。如果文件已经存在，原来的数据不会被清除。

如果你打算清除原来的文件内容，或者自己调用truncate() 函数，或者使用“+>”模式。

复制代码 代码如下:

open(FH, "+> $filename")
or die "Couldn't open $filename for reading and writing: $!";

注意“+<”和“+>”的区别，两者都可以可读可写。前者为非破坏性写，后者为破坏性写。

错误

错误是如何出现的？很多地方都会出现错误：如目录不存在，文件不可写入，你的程序丢失了文件句柄等等。

你应该检查系统调用的结果 (如open() 和sysopen())，看看是否调用成功。

为了帮助用户查错，通常使用“or die()”，你应记住这些用法。首先，应写出系统调用失败(“open”)的信息。其次，应写出文件名的信息，以便修正错误时更容易地定位。第三，要写出打开文件的方式， (“for writing,”“for appending”)。第四，输出操作系统的出错信息(包含在$!中)。这样，一旦出现文件不能打开的问题，使用你的程序的用户会大体上知道为什么不能打开。有时，我们把第一个和第三个合并在一起：
or die "unable to append to $filename: $!";

如果在open() 和出错信息中都写了文件的全名，你会冒改变了open() 的风险，使得出错信息不合时宜或不正确。

复制代码 代码如下:

# 下面会出现虚假的出错信息
open(FH, "</var/run/file.pid")
or die "Can't open /var/log/file.pod for writing : $!";

用 Sysopen()进行更多的控制
为了更好的控制文件的打开方式，可以使用 sysopen() 函数：

复制代码 代码如下:

use Fcntl;
sysopen(FH, $filename, O_RDWR|O_CREAT, 0666)
or die "Can't open $filename for reading/writing/creating : $!";

函数 sysopen() 带有四个参数，第一个是同open()函数类似的文件句柄参数，第二个参数是不带模式信息的文件名，第三个参数是模式参数，由Fcntl 模块提供的逻辑OR运算组合起来的常数构成，第四个参数(可选)，为八进制属性值(0666表示数据文件， 0777表示程序)。如果文件可以被打开，sysopen() 返回true，如果打开失败，则返回false。

不同于open()函数，sysopen()不提供模式说明的简写方式，而是把一些常数组合起来，而且，每个模式常数有唯一的含义，只有通过逻辑OR运算才能将它们组合起来，你可以设置多个行为的组合。

O_RDONLYRead-only
O_WRONLY Write-only
O_RDWR Reading and writing
O_APPEND Writes go to the end of the file
O_TRUNC Truncate the file if it existed
O_CREAT Create the file if it didn't exist
O_EXCLError if the file already existed (used with O_CREAT)

当你需要小心行事的时候，就使用sysopen() 函数，例如，如果你打算添加内容到文件中，如果文件不存在，不创建新文件，可以这样写：

复制代码 代码如下:

sysopen(LOG, "/var/log/myprog.log", O_APPEND, 0666)
or die "Can't open /var/log/myprog.log for appending: $!";

您可能感兴趣的文章:

相关文章

  • 使用perl清理电脑上重复文件实现代码(续)

    使用perl清理电脑上重复文件实现代码(续)

    使有perl搜索电脑上的重复文件并删除，需要的朋友可以参考下
    2013-02-02
  • Perl 批量添加Copyright版权信息

    Perl 批量添加Copyright版权信息

    对所有输入文件，如果没有版权信息则加上版权信息，否则什么都不做，并对原文件以.bak结尾备份,需要的朋友可以参考下
    2017-08-08
  • 使用Perl生成随机密码

    使用Perl生成随机密码

    本文给大家分享的是使用perl生成随机密码的方法示例，而且可以通过参数来控制密码中包含的字符种类，非常的不错，有需要的小伙伴可以参考下
    2016-06-06
  • Perl时间处理函数用法介绍

    Perl时间处理函数用法介绍

    本文重点讨论Perl时间处理函数的概念,Perl能在绝大多数操作系统运行,可以方便地向不同操作系统迁移,并且Perl借取了C、sed、awk、shellscripting以及很多其他程序语言的特性
    2017-09-09
  • 一篇文章搞懂：词法作用域、动态作用域、回调函数及闭包

    一篇文章搞懂：词法作用域、动态作用域、回调函数及闭包

    这篇文章主要给大家介绍了如何通过一篇文章搞懂：词法作用域、动态作用域、回调函数及闭包的相关资料，文中通过示例代码介绍的非常详细，对大家的学习或者工作具有一定的参考学习价值，需要的朋友们下面来一起看看吧
    2018-12-12
  • Perl AnyEvent中的watcher实例

    Perl AnyEvent中的watcher实例

    这篇文章主要介绍了Perl AnyEvent中的watcher实例,关于AnyEvent请参阅的更多介绍请参阅文中的相关链接,需要的朋友可以参考下
    2014-09-09
  • Perl中处理时间的几个函数

    Perl中处理时间的几个函数

    本文为大家介绍Perl中处理时间的几个函数，供大家学习参考
    2013-02-02
  • Perl中的特殊符号介绍

    Perl中的特殊符号介绍

    这篇文章主要介绍了Perl中的特殊符号介绍,需要的朋友可以参考下
    2017-10-10
  • 学习perl的unless控制结构

    学习perl的unless控制结构

    在perl的if控制结构中，只有当条件表达式为真时才执行某块代码。如果想让程序块在条件为假时才执行，此时可以把if改成unless
    2013-02-02
  • Perl进行错误处理和创建子程序的示例

    Perl进行错误处理和创建子程序的示例

    这篇文章主要介绍了Perl进行错误处理和创建子程序的示例,Perl允许开发者编写健壮的代码,能够优雅地处理运行时错误和异常情况,需要的朋友可以参考下
    2024-06-06

最新评论