Come procedere per l'ordinamento su più colonne per il codice seguente?Ordinamento su più colonne (Perl)
Attualmente, il codice:
1. Ottiene un @list
di file in una $directory
2. Utilizza regex per ottenere il $fileName
, $fileLocation
e $fileSize
per ogni elemento in @list
3. stampa i 3 valori in (2) in 3 colonne a larghezza fissa 4. Quindi stampa il numero totale di file e la dimensione directory
vorrei l'output per visualizzare in ordine di:
1. $fileName
poi
2. $fileLocation
poi
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";