in reply to Sorting a referrenced array and need to sort by specific fields.
The sprintf just joins the fields into one big padded string. You would want to change the %-5s to whatever number of chars is appropriate for the data.my @sorted = map { $_->[1] } # Lose the keys and return just original string sort { $a->[1] cmp $b->[1] } # Compare the keys # Make a temp array with [0] = original string, [1] a combin +ation of desired fields (key). map { [$_, (sprintf("%-5s%-8s%-8s" , split (/\s*,\s*/) )) ] } @{$outputRef};
|
|---|