PERL中的文件读写

     就像已知的，其他编程语言类似，PERL解释器，是没有办法自己进行文件读写的，但是呢，可以调用操作系统的文件读写功能，现在我们说下自己的,

文件打开操作使用open命令，后面紧跟的是文件句柄，而后则是打开文件的权限,"<"是只读方式,">"是写方式，如果没有则创建,">>"则是追加在已有文件的最后添加内容

最后则是文件名称，关闭文件使用的是close 后面加的是文件句柄，对于文件的打开或者

#die的含义呢，就是当程序遇到错误时，输出的错误信息，，即就是STDERROR而系统返回的错误信息放在$!当中
#当然若是自己定义的错误，不要加上$!,就行了

if(!open PSW,"<","d:\\a.txt")
 {
     die "the file open failed $!"
 }
 else
 {
     print "the file open succeed with read mode!\n";
 }
 my $num=1;
 while(<PSW>)#行输入操作符，即<>这样的操作是每读取一行将内容放在$_中
 {
     chomp($_);
     print "the ".$num."  line is   ".$_."\n";
     $num++;
  }
  print "the file close!\n";
  close PSW;
  if(!open PSW,">>","d:\\a.txt")
  {
      die "the file open with appened mode failed $!";
  }
  else
  {
      print "the file open with appened mode success\n ";
  }
  print PSW ("HEE\n");
  close PSW;

if(!open TXT,"<","d:\\a.txt")
 {
print "the file has opened faile in read model with the error:$!"."\n";
return ;
 }


 #计算每个单词出现的次数


 while(<TXT>)
 {

if(!defined($stats{$_}))
{
$stats{$_}=1;
}
else
{
$stats{$_}+=1;
} 
 }


 foreach $tmp(keys %stats)
 {
print "the words  ".$tmp." has appear ".$stats{$tmp}." times\n";
 }