how to list the files in a folder using perl language

See more:

Perl

hi, 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

Quote:

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;