第一章:读取文件一行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();
 #>>为追加, >为复盖写入