Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
  2. or download this
    open OUT, '>', 'sfull1ns.dat';
print OUT <<'FILE';
...
wsompapgtw05,30.66,93.74,39.89,71.35
FILE
close OUT;
  3. or download this
    my %usage;
my @files = qw(sfull1ns.dat sfull2ns.dat sfull3ns.dat);
...
        join (',', map {$usage{$server}{$_}{value}} sort keys %{$usage
+{$server}}),
        "\n";
}