( miq | 2024. 06. 02., v – 00:59 )

Basszus... sok lett a kávé:)
Leráztam a rozsdát a perl emlékeimről.

#!/usr/bin/env perl
while(<>){ $a{$2}=$1 if (/([^ ]+).* (.+)/ && $1>$a{$2}) }
for(keys %a) {print "UPDATE servers set backup='$_' WHERE hostname='$a{$_}';\n"}