Help for this page

Select Code to Download


  1. or download this
      $text= "Average of column 3 for the last " ;
             #, scalar (@lines)," days: $average\n";
  2. or download this
    $text = "Average of column 3 for the last " .
              scalar(@lines) . " days: $average\n";
  3. or download this
    $text = join '', "Average of column 3 for the last ",
                       scalar(@lines), " days: $average\n";
  4. or download this
    my $last = (split /:/, $lines[-1])[3];
  5. or download this
    my @tmp = split /:/, $lines[-1];
my $last = $tmp[3];