对目录下的一批文件生成校验文件的脚本

#!/usr/bin/perl -w
use strict;

use IO::Socket;

my $size;
my @totalsize;

my $OUT;  #输出文件句柄

open SOU," < chk.log";  #打开文件。

system('rm -f *.chk');  #删除原由文件。

system('rm -f chk.log'); #删除原有的文件列表

#######生成列表文件。     
        my $RGV;  #日志文件句柄
        open RGV,">>chk.log" or die "cant' open the file!";
        my $file_a = `ls *.dat`;
        my @array = split(/\n/, $file_a);    
     foreach (@array){
      print;
      print RGV  "$_\n";
      print "\n";
    }
    close(RGV);
#######生成列表文件。

####生成校验文件
foreach(<SOU>) 
{
 open FILE ,"< $_";  
  my $file=$_;   #文件名。
  chomp($file);
  open OUT ,">$file.chk";   # 输出的校验文件的名称   
  @totalsize=stat(FILE);
 $size = $totalsize[7];  #文件大小
 chomp($size); 
  my   $len =` head -n 1 $file |awk '{print length(\$0)}'  `;
  my $length =  $len + 1;  
  my $count = $size / $length;#  采用文件大小/行数的方法，得到文件的行数 
  chomp($count);
  print  OUT " $file,$count,$size\n";  # 写入校验文件的内容。
  close(OUT);
 close(FILE);
}  
####生成校验文件完成。