Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
    # test4.pl for testing real-time graph capabilities
    # November 9, 2004
    ...
    my $combined = "$station" . "$constituent";
    my $img = `/usr/local/bin/gnuplot $station $constituent $combined`;
    print $q->header("image/png"), $img;
    
  2. or download this
    #!/usr/bin/perl -w
    
    # test5.pl for testing real-time graph capabilities
    ...
    gnu
      close $graph or die "Failed to close pipe: $!\n";
    }