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

时间：2008-03-04 来源：starB6

文本拼接（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=<FILE>;
   chomp($line);
   print AIM "$line \n";
   close(FILE);
}

相关阅读更多 +