Hail fellow Monks,
I am currently trying to read through directories recursively. I have this down, but I came across a weird situation that I thought you may be able to help me with. The code for reading the directories is basic, but it works:

my $dir = "../data/ifx/reports/";
opendir (DIR, $dir) or die "cannot opendir $dir";
foreach my $file (readdir(DIR)) {
    if(($file eq ".") || ($file eq "..")) {}
    else {
 print $file."<BR>";
 &Read_Next_Dir ($file);
    }
}
closedir (DIR);

sub Read_Next_Dir {
my $param = $_[0];
my $dir = "../data/ifx/reports/".$param."/";
opendir (DIR, $dir) or die "cannot opendir $dir";
foreach my $file (readdir(DIR)) {
    if(($file eq ".") || ($file eq "..")) {}
    else {
 print "---->";print $file."<BR>";
 &Read_Report_Dir ($file, $param);
    }
}
closedir (DIR);
}

sub Read_Report_Dir {
my @report_array;
my $report_name = $_[0];
my $param = $_[1];
my $dir = "../data/ifx/reports/".$param."/".$report_name."/";
opendir (DIR, $dir) or die "cannot opendir $dir";
foreach my $file (readdir(DIR)) {
    if(($file eq ".") || ($file eq "..")) {}
    else {
      print "--------->";
      print $file."<BR>";
      push(@report_array,$file);
    }
}
foreach my $unsorted_file(@report_array) {
    print $unsorted_file;
}
@report_array = sort {$a cmp $b} @report_array;
foreach my $sorted_file(@report_array) {
    print $sorted_file."<BR>";
}
closedir (DIR);
}
[download]

The results it prints out are as follows:

103
---->137
--------->Y2001.pdf
--------->Q2001-1.pdf
--------->Q2001-2.pdf
--------->M2001-12.pdf
--------->M2001-11.pdf
--------->M2001-01.pdf
[download]

Y2001.pdfQ2001-1.pdfQ2001-2.pdfM2001-12.pdfM2001-11.pdfM2001-01.pdfM2001-01.pdf

M2001-11.pdf
M2001-12.pdf
Q2001-1.pdf
Q2001-2.pdf
Y2001.pdf
---->142
--------->M2001-01.pdf
--------->M2001-11.pdf
--------->M2001-12.pdf
--------->Q2001-1.pdf
--------->Q2001-2.pdf
--------->Y2001.pdf
[download]

M2001-01.pdfM2001-11.pdfM2001-12.pdfQ2001-1.pdfQ2001-2.pdfY2001.pdfM2001-01.pdf

M2001-11.pdf
M2001-12.pdf
Q2001-1.pdf
Q2001-2.pdf
Y2001.pdf
107
---->137
--------->M2001-01.pdf
--------->M2001-11.pdf
--------->M2001-12.pdf
--------->Q2001-1.pdf
--------->Q2001-2.pdf
--------->Y2001.pdf
M2001-01.pdfM2001-11.pdfM2001-12.pdfQ2001-1.pdfQ2001-2.pdfY2001.pdfM20
+01-01.pdf
M2001-11.pdf
M2001-12.pdf
Q2001-1.pdf
Q2001-2.pdf
Y2001.pdf
---->142
--------->M2001-01.pdf
--------->M2001-11.pdf
--------->M2001-12.pdf
--------->Q2001-1.pdf
--------->Q2001-2.pdf
--------->Y2001.pdf
M2001-01.pdfM2001-11.pdfM2001-12.pdfQ2001-1.pdfQ2001-2.pdfY2001.pdfM20
+01-01.pdf
M2001-11.pdf
M2001-12.pdf
Q2001-1.pdf
Q2001-2.pdf
Y2001.pdf
[download]

I guess my question is why do the two bolded results differ. The files in the directories are the same. Shouldn't they be read in, in the same order, each time I do a readdir()??
Any help would be appreciated.

Prince99

Too Much is never enough...

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.