perl IO::File模块的使用

在perl中，除了通过open函数打开一个文件之外，我们还可以使用perl的模块IO::File来打开并读取文件，下面我们通过一个例子来了解一下这个模块的使用：

perl

#! /usr/bin/perl
use strict;
use warnings;
use IO::File;
my $file = shift();
my $fh = IO::File->new($file);
my $line = <$fh>;
#print "$file\n";
#print "$fh\n";
print "$line";

第5行通过shift函数将文件名存储到变量$file中
第6行通过IO::File的new方法，返回文件$file的文件句柄，并存储到变量$fh中
第7行通过<>操作符，读入文件的第一行
上面程序的执行结果如下：

text

C:\Users\Hunter\Documents\Perl>perl io_file.pl redo.pl
#! /usr/bin/perl
C:\Users\Hunter\Documents\Perl>

其实在上面的程序中，如果不想在执行程序的时候输入文件名，可以直接将文件名赋值给变量$file。

perl IO::File模块的使用

延伸阅读

评论

发表评论