mirror of
https://github.com/rwxrob/dot
synced 2024-11-18 15:25:52 +00:00
15 lines
241 B
Perl
Executable File
15 lines
241 B
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
# Sorts simple semantic versions.
|
|
|
|
use v5.18;
|
|
my @versions = <STDIN>;
|
|
|
|
sub num {
|
|
$_ = shift;
|
|
s/^v//;
|
|
sprintf "%09i%09i%09i", split /\./;
|
|
}
|
|
|
|
print(grep {s,^,v,} sort {num($a) <=> num($b)} grep {s,^v,,} @versions)
|