如何使用Perl语言列出文件夹中的文件 [英] how to list the files in a folder using perl language

问题描述

这是我的代码，因为我已经合并了文件并保存到新文件，并指导我如何创建ini文件以及如何使用perl代码列出文件.

here is my code in that i had merged the files and saved to a new file , and guide me how to create a ini file and how to list the files using perl code

报价:

我的$ samplefolder = $ ARGV [0];

opendir(DIR，"$ samplefolder")||死亡(无法打开输入文件夹进行读取")；
我的(@files)= grep/\.xml $/，readdir(DIR);
closeir(DIR);

我的$ mergestr;

为我的$ file(@files){
#$ mergestr.= $ file."\ n";
打开(IN，"$ samplefolder \\ $ file")|| die(无法打开输入文件进行读取");
undef $/;
我的$ str =< in> ;;
关闭(IN);

$ mergestr.="< merge_ $ file> \ n.$ str." \ n \ n \ n;
}

打开(OUT，> $ samplefolder \ .xml")|| die(无法打开输出文件进行写入");
打印输出$ mergestr;
关闭(OUT);

打开(DIR，>" samplefolder")||死于"$！"； #OPEN写入文件
@ samplefolder = @ field;
printf $ samplefolder;

my $samplefolder = $ARGV[0];

opendir (DIR,"$samplefolder") || die ("Can''t open the input folder for reading");
my (@files) = grep/\.xml$/,readdir(DIR);
closedir(DIR);

my $mergestr;

for my $file (@files){
#$mergestr .= $file."\n";
open (IN,"$samplefolder\\$file") || die ("Can''t open the input file for reading");
undef $/;
my $str = <in>;
close (IN);

$mergestr .= "<merge_$file>\n".$str."\n\n\n";
}

open (OUT,">$samplefolder\.xml")||die ("Can''t open the output file for writing");
print OUT $mergestr;
close (OUT);

open(DIR, ">>samplefolder")|| die "$!"; #OPEN FILE FOR WRITING
@samplefolder=@field;
printf $samplefolder;

推荐答案

samplefolder =

samplefolder =

ARGV [0];

opendir(DIR，"

ARGV[0];

opendir (DIR,"

samplefolder")||死亡(无法打开输入文件夹进行读取")；
我的(@files)= grep/\.xml

samplefolder") || die ("Can''t open the input folder for reading");
my (@files) = grep/\.xml

这篇关于如何使用Perl语言列出文件夹中的文件的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！