पर्ल readdir

Question

वहाँ किसी भी तरह से readdir द्वारा वापस सूची से एक आदेश की गारंटी करने के है?

मैं कोड है:

opendir(my $DIR, $src) or die "Error opening $src"; 

# Loop for each file in the directory 
while (my $file = readdir($DIR)) 
{ 
     print "$file\n"; 
} 

लेकिन यह यादृच्छिक क्रम में वापस आती है। अब मुझे पता है कि एक त्वरित Google खोज के माध्यम से बहुत सारे समाधान हैं, लेकिन मुझे सटीक ऑर्डर नहीं मिल रहा है .. मूल रूप से मैं फ़ोल्डरों को FIRST या LAST, और फ़ाइलों के बीच में नहीं दिखाना चाहता हूं।

उदाहरण के लिए, अभी अगर मैं फ़ोल्डर संरचना है:

folder 
folder 
file1 
file2 
file3 

मैं परिणाम प्राप्त:

file2 
folder 
folder 
file1 
file3 

जब वास्तव में मैं चाहता हूँ:

folder 
folder 
file1 
file2 
file3 

या:

file1 
file2 
file3 
folder 
folder 

इसे प्राप्त करने का कोई तरीका?

धन्यवाद।

Answer 1

आप पहली बार फ़ोल्डरों डाल और फिर फ़ाइल/dir नाम आधार पर क्रमित करके सॉर्ट कर सकते हैं,

# $src pointing to folder open with opendir 
my @sorted_dir = 
    map $_->[0], 
    sort { 
    $a->[1] <=> $b->[1] 
     || 
    $a->[0] cmp $b->[0] 
    } 
    map [ $_, -f "$src/$_" ], 
    readdir($DIR); 

समान प्रभाव के साथ प्राप्त किया जा सकता है,

for my $file (sort { -f "$src/$a" <=> -f "$src/$b" } readdir($DIR)) { 
    print "$file\n"; 
} 

यह अधिक बार धीमी है और यह रूप में अक्षम है निर्देशिका प्रविष्टि एक सादा फ़ाइल है अगर फाइल सिस्टम जांच में जाता है।

Answer 2

readdir द्वारा लौटाई गई सूची के प्रत्येक प्रविष्टि को देखकर आप sort का उपयोग कर सकते हैं।

opendir(my $DIR, '.') or die "Error opening "; 

foreach my $file (sort { -d $a <=> -d $b } readdir($DIR)) { 
    print "$file\n"; 
} 

यह फ़ोल्डरों को अंतिम देगा।

Answer 3

आप से List::MoreUtils

#!/usr/bin/env perl 

use strict; 
use warnings; 

use List::MoreUtils 'part'; 

my $dir = shift || '.'; 

opendir my $dh, $dir or die "Cannot open $dir"; 

my ($files, $dirs) = part { -d } sort readdir $dh; 

print "$_\n" for @$files, @$dirs; 

part उपयोग कर सकते हैं एक और विचार के लिए, आप File::Next पर लग सकता है।

Answer 4

foreach (sort readdir $dh) {} मेरे लिए ठीक काम करता है।

उदाहरण के लिए:

opendir (my $DIR, "$dir") || die "Error while opening $dir: $!\n"; 

foreach my $dirFileName(sort readdir $DIR) 
{ 
     next if $dirFileName eq '.' or $dirFileName eq '..'; 
     print("fileName: $dirFileName ... \n"); 
}