- or download this
use strict;
use warnings;
...
Data Collected for SA222:Prct Dirty Cache Pages = 17
- or download this
$VAR1 = {
' SA220' => ' 0',
...
' SA121' => ' 1',
' SA120' => ' 0'
};
- or download this
/.+(SA\d{3}).+?(\d+)(?{$data{$1}=$2})/ for <DATA>