脚本编写比赛 （3 文本拼接）

文本拼接（10 点）
复制文件夹中每个文本文件的第一行并将其放入新文件中。

#!/usr/bin/perl -w
use strict;
# 文本拼接（10 点）
#复制文件夹中每个文本文件的第一行并将其放入新文件中

   open AIM ,">> aim/aim.txt" or die "cannot open the file"; # 打开需要写入的文件。
  my $line; # 记录文件的第一行。
  my $DIR_PATH="/odfs01/oddev3/proc_xd/myl/perl";  
  opendir DIR,${DIR_PATH} or die "cannot open!";
  my @filelist =  grep { /txt/  }  readdir DIR;  #  列出所有的txt 文件。
  my $filedir;
  foreach $filedir(@filelist){
  my $file=$filedir;
  # print $filedir."\n";
  # print "$filedir\n";
  # print "$file\n";    #  这三种方式都可以打出正确的文件名。 
   open FILE ,"< $file" or die "cannot open $file";
   $line=;
   chomp($line);
   print AIM "$line \n";
   close(FILE);
  }