Aşağıdaki kod için birden çok sütun arasında sıralama yapmak için nasıl giderim?Çoklu sütunlara göre sırala (Perl)
Halen kod:
1. $directory
2. dosyaların @list
alır 3 değerlere dışarı @list
3. Baskı her element için $fileName
, $fileLocation
ve $fileSize
almak için regex'i kullanır
1. $fileName
: (2) 3 sabit genişlikli sütunlara 4. Daha sonra sıralama kriteri gösterime getirilmesi için bir çıkış istiyorum
toplam dosya sayısı ve dizinin boyutu yazdırır Sonra
2. $fileLocation
sonra
3. $fileSize
$directory = '/shared/tmp';
$count = 0;
@list = qx{du -ahc $directory};
printf ("%-60s %-140s %-5s\n", "Filename", "Location", "Size");
foreach(@list) {
chop($_); # remove newline at end
if (/^(.+?K)\s+(.+\/)(.+\.[A-Za-z0-9]{2,4})$/) { # store lines with valid filename into new array
# push(@files,$1);
$fileSize = $1;
$fileLocation = $2;
$fileName = $3;
if ($fileName =~ /^\./) {
next; }
printf ("%-60s %-140s %-5s\n", $fileName, $fileLocation, $fileSize);
$count++;
}
else {
next;
}
}
print "Total number of files: $count\n";
$total = "$list[$#list]";
$total =~ s/^(.+?)\s.+/$1/;
print "Total directory size: $total\n";