Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation
 
PerlMonks  

Re: Sort alphabetically from file

by johngg (Canon)
on Jun 15, 2019 at 14:04 UTC ( #11101400=note: print w/replies, xml ) Need Help??


in reply to Sort alphabetically from file

In case your 4th column contains spaces you can split with a limit. Here I am opening the file contained in a HEREDOC as opposed to using the automatically opened DATA file handle.

johngg@shiraz:~/perl/Monks$ perl -Mstrict -Mwarnings -E ' open my $inFH, q{<}, \ <<__EOF__ or die $!; 1 2 3 delta 1 2 3 apricot 1 2 3 blue cup 1 2 3 charlie 1 2 3 yellow banana 1 2 3 bravo 1 2 3 echo 1 2 3 fox __EOF__ print for map { substr $_, 50 } sort map { pack q{A50A*}, ( split m{\s+}, $_, 4 )[ -1 ], $_ } <$inFH>; close $inFH or die $!;' 1 2 3 apricot 1 2 3 blue cup 1 2 3 bravo 1 2 3 charlie 1 2 3 delta 1 2 3 echo 1 2 3 fox 1 2 3 yellow banana

Just another way out of many.

Cheers,

JohnGG

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://11101400]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others romping around the Monastery: (7)
As of 2020-05-26 18:24 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    If programming languages were movie genres, Perl would be:















    Results (150 votes). Check out past polls.

    Notices?