PERL 文本处理

lzf79

　　package FileOperate;
　　sub new
　　{
　　my $class = shift;
　　#一个空的引用
　　my $ref = {};
　　#将引用和对象绑定
　　bless($ref,$class);
　　#返回引用
　　return $ref;
　　}
　　#获取一个目录下的所有文件名字
　　sub ListFile{
　　my $ref = shift;
　　my $dir = shift @_;
　　my @FileName;
　　opendir DH, $dir;
　　foreach my $file (readdir DH)
　　{
　　next if $file eq "." or $file eq "..";
　　$file = "$dir/$file";
　　if(-d $file)
　　{
　　&ListFile($file);
　　}
　　else
　　{
　　push @FileName ,$file;
　　}
　　}
　　return @FileName;
　　}
　　#获取文件的内容写入容器
　　sub GetFileContent
　　{
　　my $ref = shift;
　　my $filename =  shift @_;
　　#测试文件是否存在
　　if( ! -e $filename)
　　{
　　print "$filename\n";
　　die "The file does not exits\n";
　　}
　　#测试文本是否可以读取
　　if(! open readFile, $filename)
　　{
　　die "Can not open file\n";
　　}
　　my @SearchFile;
　　while()
　　{
　　push @SearchFile,$_;
　　}
　　close readFile;
　　@SearchFile;
　　}
　　#将容器的内容写入文件
　　sub WriteFileContent
　　{
　　my $ref = shift;
　　my ($FileName,@logitem ) =  @_;
　　my $tm;
　　open(logfile,">$FileName")||die "can't open file $& !";
　　print logfile "@logitem\n";
　　close(logfile);
　　}
　　#模块结束标志
　　1;
　　use FileOperate;
　　#获取对象实例
　　my $FileOperate = FileOperate->new();
　　my $FilePath = "C:\\Documents and Settings\\Administrator\\桌面\\PrelTest\\保存的模块\\文本处理";
　　#获取文件夹下所有内容
　　my @FileContent;
　　@FileContent = FileOperate->ListFile($FilePath);
　　print @FileContent;
　　#读取文本内容
　　my $TextPath = "C:\\Documents and Settings\\Administrator\\桌面\\PrelTest\\保存的模块\\文本处理\\read.txt";
　　my @FileContent = FileOperate->GetFileContent($TextPath );
　　print @FileContent;
　　#写入文本测试
　　my $WriteFilePath = "C:\\Documents and Settings\\Administrator\\桌面\\PrelTest\\保存的模块\\文本处理\\write.txt";
　　FileOperate->WriteFileContent($WriteFilePath,@FileContent);