Re^4: Sorting a text file

This seems to work with digits as shows above, however, I couldn't make it work for the following while sorting with the 2nd word (combination)-

_DATA_

CCCCCC-NF-33 LONDON_JAM_2AAA END-ONE_2TWO
DDDDDD-NF_52 VENICE_CCC_1ZZZ WHAT_WHEN-1WHY
KKKKK-INF_44 JAMAICA_AAA_3TTT HOW-WHERE_3WHAT
AAAAA-INF-32 LONDON_JAM_2AAA END-ONE_2TWO
BBBBB-INF-12 JAMAICA_AAA_3TTT WHAT_WHEN-1WHY
VVVVV-INF_24 VENICE_CCC_1ZZZ END-ONE_2TWO
[download]

Any suggestion?

Comment on Re^4: Sorting a text file Download Code

Replies are listed 'Best First'.
Re^5: Sorting a text file by tybalt89 (Monsignor) on Dec 06, 2016 at 18:11 UTC
Suggestion: then sort by the second word `#!/usr/bin/perl # http://perlmonks.org/?node_id=1177316 use strict; use warnings; print sort { (split ' ', $a)[1] cmp (split ' ', $b)[1] } <DATA>; __DATA__ CCCCCC-NF-33 LONDON_JAM_2AAA END-ONE_2TWO DDDDDD-NF_52 VENICE_CCC_1ZZZ WHAT_WHEN-1WHY KKKKK-INF_44 JAMAICA_AAA_3TTT HOW-WHERE_3WHAT AAAAA-INF-32 LONDON_JAM_2AAA END-ONE_2TWO BBBBB-INF-12 JAMAICA_AAA_3TTT WHAT_WHEN-1WHY VVVVV-INF_24 VENICE_CCC_1ZZZ END-ONE_2TWO` [download]	[reply] [d/l]
Re^6: Sorting a text file by ArifS (Beadle) on Dec 06, 2016 at 18:25 UTC
This is a good solution. Thanks	[reply]