Help for this page

Select Code to Download


  1. or download this
    print OUTFILE "$result{$moid}{$ext}{$kpi[$jk]}\n";
perl -i -lpe "s/^\s*$/<r><\/r>/g" $OUTFILE
  2. or download this
    my $out = "$result{$moid}{$ext}{$kpi[$jk]}\n";
$out =~ s{ \A \s* \z }{<r></r>\n}xms;
print OUTFILE $out;