Perl 文件操作 (IO::File)

# author : ez
# date 2015/6/15
# describe : append write a file
#! perl

use strict;
use warnings;
use IO::File; # import symbols

my $fname = "./ko.pl";
my $fd = undef;

sub main () {
	$fd = new IO::File $fname, O_WRONLY | O_APPEND; # write only and append
	print $fd "this sentends;\n";  # write string into <$fd>
	$fd -> setpos ($fd -> getpos);
	undef $fd; # automatically close file handle
}

&main;

基本的读取：

sub rf () {
        # or this
        # my $fname = "> ./ko.pl"; then you can read without calling open ()
        my $fname = "./ko.pl";
	$fd = new IO::File; # call constructor
	$fd -> open ($fname);
	print <$fd>; # print all content of this file
	$fd -> close;
}

&rf;