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

最新推荐文章于 2022-09-09 11:43:47 发布

汤姆的猫

最新推荐文章于 2022-09-09 11:43:47 发布

阅读量4.3k

点赞数 2

分类专栏： Perl perl学习文章标签： Perl 练习题

本文链接：https://blog.csdn.net/sunshoupo211/article/details/34817343

版权

这是一篇关于Perl编程的练习分享，包括在/tmp目录查找以abc开头的文件并提取它们首行内容到new文件，以及使用Perl比较文件a和b，找出b中有但a中无的行并保存至文件c，同时统计c的行数。

摘要由CSDN通过智能技术生成

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

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_