1576914644
1 2 3 4 5 6 7 8 9 10 11 12 13
#!/usr/bin/perl $maj = 0; $min = 0; while (<>) { if (/xerces-c(\d+)_(\d+)\.so$/) { if ($1 > $maj || (\\$1 == $maj && \$2 > $min)) { $maj = $1; $min = $2; } } } print $maj,"_",$min