Help for this page

Select Code to Download


  1. or download this
    $hash1{$key}= "$metric1;$metric2;$metric3";
  2. or download this
    print $name2, $hash{$name2}, ";", $metric4, "\n" if exists $hash{$name
+2};
  3. or download this
            $line1 =~ /(.*?)\,(.*?)\,(.*?)\,(.*?)\,(.*?)\,(.*)/;
        $description1 = $1;
...
        $availability1 = sprintf("%.2f", $4);
        $bitsin1 = $5;
        $bitsout1 = $6;
  4. or download this
    my ($description1, $cktsizetemp1, $bits1, $availability1, $bitsin1, $b
+itsout1)
     = split /,/, $line1;
$availability1 = sprintf("%.2f", $availability);