Hi All,
In windows explorer, files in a folder displaying (name sort) as,
Chapter 1.doc
Chapter 2.doc
Chapter 3.doc
Chapter 4.doc
Chapter 12.doc
Chapter 20.doc
Chapter 21.doc
Chapter 30.doc
Chapter 31.doc
Chapter 40.doc
Chapter 41.doc
Chapter 42.doc
I need the above list/result using Perl. But Perl gives result as below,
Chapter 1.doc
Chapter 12.doc
Chapter 2.doc
Chapter 20.doc
Chapter 21.doc
Chapter 3.doc
Chapter 30.doc
Chapter 31.doc
Chapter 4.doc
Chapter 40.doc
Chapter 41.doc
Chapter 42.doc
I have tried (3 different ways) the below code:
(1) opendir(DIR, $folderpath) || die "Error in opening dir $dirname\n";
while(($filename = readdir(DIR)))
{print("$filename\n");}
closedir(DIR);
(2) @xmlfiles = File::Find::Rule->file()->name('*.doc')->in($folderpath);
(3) system("dir/b >\"$folderpath\\TextFiles.txt\"");
Please suggest if you have any idea to achive my requirement in perl.
Regards,
Ramkumar,
_______________________________________________
ActivePerl mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
