All pastes #122165 Raw Edit

Mine

public text v1 · immutable
·published 2006-08-08 14:09 UTC
rendered paste body
#!/usr/bin/perl -w

my $output="Uptime: 11349  Threads: 1  Questions: 50  Slow queries: 0  Opens: 0  Flush tables: 1  Open tables: 6  Queries per second avg: 0.004";


while ($output =~ /^(\w+): (\d+)  /g) {
 $somevar{lc($1)} = $2;
}

print join(', ', map { "$_ => $somevar{$_}" } keys(%somevar));
print"\n";