«

I use a old Perl script using Dirhandle but the sort is different on
Windows and on Linux

$dh = new DirHandle($test) || return;
while ($OneFile = $dh->read()) {

In Windows the directory and files are sorted by name : it is OK
but on Linux there are sorted in order of directory
creation/modification date but we want it by name.

Is there any option to use in Dirhandle new or read to sort by named in
all system ?

I cannot modify too much the script therefore need to keep
while ($OneFile = $dh->read()) method
and not replace it by an array of directory name.

wrote:
> I use a old Perl script using Dirhandle but the sort is different on
> Windows and on Linux
>
> $dh = new DirHandle($test) || return;
> while ($OneFile = $dh->read()) {
>
> In Windows the directory and files are sorted by name : it is OK
> but on Linux there are sorted in order of directory
> creation/modification date but we want it by name.

The DirHandle module is just an OO wrapper around Perl's built-in
opendir/readdir/rewinddir/closedir functions and these functions do not do any
sorting. If you want the results sorted you will have to do it yourself.

perldoc -f sort



John
--
use Perl;
program
fulfillment

John W. Krahn wrote:
> wrote:
>
>>I use a old Perl script using Dirhandle but the sort is different on
>>Windows and on Linux
>>
>> $dh = new DirHandle($test) || return;
>> while ($OneFile = $dh->read()) {
>>
>>In Windows the directory and files are sorted by name : it is OK
>>but on Linux there are sorted in order of directory
>>creation/modification date but we want it by name.
>
>
> The DirHandle module is just an OO wrapper around Perl's built-in
> opendir/readdir/rewinddir/closedir functions and these functions do notdo any
> sorting. If you want the results sorted you will have to do it yourself.
>
> perldoc -f sort

Which is sensible, because if you don't want them sorted, how would you
un-sort 'em?

--
Josef Möllers (Pinguinpfleger bei FSC)
If failure had no penalty success would not be a prize
-- T. Pratchett

On Thu, 27 Jul 2006 13:13:06 +0000, John W. Krahn wrote:

> wrote:
>> I use a old Perl script using Dirhandle but the sort is different on
>> Windows and on Linux
>>
>> $dh = new DirHandle($test) || return;
>> while ($OneFile = $dh->read()) {
>>
>> In Windows the directory and files are sorted by name : it is OK
>> but on Linux there are sorted in order of directory
>> creation/modification date but we want it by name.
>
> The DirHandle module is just an OO wrapper around Perl's built-in
> opendir/readdir/rewinddir/closedir functions and these functions do not do any
> sorting. If you want the results sorted you will have to do it yourself.
>
> perldoc -f sort

Or use globbing.

for my $OneFile (glob($test)) {

M4
--
Redundancy is a great way to introduce more single points of failure.