用PERL语言写的第一个实用小程序

最新推荐文章于 2024-08-07 12:19:07 发布

oygy

最新推荐文章于 2024-08-07 12:19:07 发布

阅读量3.8k

点赞数 1

分类专栏： Programming 文章标签： perl 语言 insert filter string file

本文链接：https://blog.csdn.net/oygy/article/details/2566603

版权

这是一个使用PERL编写的脚本，它遍历指定目录，读取其中的文件列表，并将文件名写入文本文件。适用于初学者学习PERL编程。

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

    其功能是读出指定目录下的文件名列表，写入到一个文本文件中，这是我写的第一个完整的PERL小程序，网上的PERL代码片段太少，共享出来供初学者参考学习： 




#Author:      Irving Ou

#Date:        2008-6-10

#! perl -w

use strict;

use FileHandle;



#Using the array to Get the list of inputting directory instead of prompting user to input

#print "input the directory you want to list: /n";

#$DirName = <STDIN>;



#  =============  you can insert a great deal of DIR here  ============

my @DirName = qw{G:/MovieFromDeng};

                 #E:/OY/Project/Perl/Exercise

		 #"c:/"};



foreach (@DirName)

{

	&ListOneDir($_);

}



sub ListOneDir

{

	my $DirName = shift;

        my $fullname = undef;

	

        #