自己做的,有更好的答案可以贴上来,电脑是英文系统,编辑器中文显示有问题,所以写的英文注释(英语小白,勿喷)
1.在目录/tmp下找到100个以abc开头的文件,然后把这些文件的第一行保存到文件new中。
#user/bin/env perl
#file name : test.pl
#author : Tony Sun
#version : 1.0
#date : 2014-6-26 11:01:29
=head function descripte
read first line in each files which name start with $startwith in folder $path
write it to a file named $write_file_name
$path : the path of files
$write_file_name: the file name which been wroted
$startwith : the ragular of the file name
$num : the number of the documents to satisfy the conditions
=cut
sub func_find_and_save{
my($path,$write_file_name,$startwith,$num) = @_;
#get folder&file handler
opendir(TMP,$path) || die "open folder failed,cause by:$!";
open(WRITEFILE,">$write_file_name") || die "open file $write_