Perl练习题，持续更新中...



自己做的，有更好的答案可以贴上来，电脑是英文系统，编辑器中文显示有问题，所以写的英文注释(英语小白，勿喷)

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_