第一章:读取文件一行IO::File

#!c:\\perl\\bin\\perl.exe
use IO::File;
#读取一行
my $fd = IO::File->new('perl.txt');
my $one_line = <$fd>;
print $one_line;
$fd->close;

#写入数据
my $wfd = IO::File->new(">> readme.txt");
print $wfd "I love Perl!\n";
print $wfd "And you?\n";
$wfd->close();
#>>为追加, >为复盖写入