Help for this page

Select Code to Download


  1. or download this
    open(my $fh, "<", "parameter.csv") or die "$!";
my $header = <$fh>;
...
    ${module}{$t}{indicator}{$n}{yscala} = $line[4];
}
close $fh;
  2. or download this
    my @cmds;
for my $number (sort keys %{${module}{$topic}{indicator}}){
...
for (my $i=0; $i<@cmds; $i++) {
        $slurpline.=$cmds[$i];
}
  3. or download this
    open my $P, "|-", "gnuplot" or die;

...
]; 

close $P;