FWIW, here's my latest take on the problem. I also have some doubt about what a "version string" is in this context, but like you, I take, e.g., "4.2.12-7" to be a version string with four components. I also wanted to investigate the single pass, no sort approach. The following solution also retains input order a-la List::MoreUtils::uniq(). (I have no idea if these latter features are required or desired at all, but I wanted to play around with them just as an intellectual exercise.) I can't say I really like this code; three of the map statements | expressions are rather hairy (one is quite long) and I'd hate to be the one who has to maintain this code. Anyway:

use warnings; use strict; use Data::Dump qw(dd); use Test::More 'no_plan'; use Test::NoWarnings; my $ver = qr{ - (\d+) [.] (\d+) [.] (\d+) - (\d+) [.] }xms; my %latest; my @most_recent = map $latest{ $_->[0] }[1] eq $_->[2] ? $_->[2] : (), map { $latest{$_->[0]} = [ @$_[1,2] ] if ! $latest{$_->[0]} or $la +test{$_->[0]}[0] lt $_->[1]; $_; } map [ (m{ \A (.*?) $ver }xms)[0], pack('N4', m{$ver}xms), $_ ], map validate($_), map { chomp; $_; } <DATA> ; dd \@most_recent; is_deeply \@most_recent, [ qw( samba-common-libs-4.2.12-7.el7_2.x86_64 abc-4.2.11-10.el7_2.x86_64 xyz-libs-4.2.13-7.el7_2.x86_64 )], "extracted by most recent version"; done_testing; sub validate { return $_[0]; } # data from Marshall pm#1174121 # also added: # samba-common-libs-4.2.9-8.el7_2.x86_64 # abc-4.2.11-10.el7_2.x86_64 __DATA__ samba-common-libs-4.2.12-7.el7_2.x86_64 samba-common-libs-4.2.10-3.el7_2.x86_64 xyz-libs-4.2.10-7.el7_2.x86_64 samba-common-libs-4.2.10-6.el7_2.x86_64 abc-4.2.11-7.el7_2.x86_64 samba-common-libs-4.2.9-8.el7_2.x86_64 abc-4.2.11-10.el7_2.x86_64 xyz-libs-4.2.11-7.el7_2.x86_64 abc-4.2.11-8.el7_2.x86_64 samba-common-libs-4.2.10-6.2.el7_2.x86_64 xyz-libs-4.2.12-7.el7_2.x86_64 xyz-libs-4.2.13-7.el7_2.x86_64 samba-common-libs-4.2.10-8.el7_2.x86_64
(This runs under 5.8.9.)

Output:

c:\@Work\Perl\monks\Anonymous Monk\1173958>perl sort_by_ver_latest_3.p +l [ "samba-common-libs-4.2.12-7.el7_2.x86_64", "abc-4.2.11-10.el7_2.x86_64", "xyz-libs-4.2.13-7.el7_2.x86_64", ] ok 1 - extracted by most recent version 1..1 ok 2 - no warnings 1..2


Give a man a fish:  <%-{-{-{-<


In reply to Re^6: Advanced Bubble Sort by AnomalousMonk
in thread Advanced Bubble Sort by Anonymous Monk

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":



  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.