Skip Menu |
 

This queue is for tickets about the Chart-Gnuplot CPAN distribution.

Report information
The Basics
Id: 93400
Status: new
Priority: 0/
Queue: Chart-Gnuplot

People
Owner: Nobody in particular
Requestors: Alan.FORD [...] stanwell.com
Cc:
AdminCc:

Bug Information
Severity: (no value)
Broken in: (no value)
Fixed in: (no value)



From prvs=1135145cb2=Alan.FORD [...] stanwell.com Wed Feb 26 23: 56:22 2014
MIME-Version: 1.0
X-Spam-Status: No, score=-2.434 tagged_above=-99.9 required=10 tests=[BAYES_00=-1.9, HTML_MESSAGE=0.001, RP_MATCHES_RCVD=-0.535] autolearn=ham
X-Spam-Flag: NO
X-Virus-Checked: Checked
Content-Language: en-US
Content-Type: multipart/alternative; boundary="_000_54CFCF7376079F4D9F7BE49DE3E4FA3B8DD1461ADC1EXCMBX01stan_"
Message-ID: <54CFCF7376079F4D9F7BE49DE3E4FA3B8DD1461A [...] DC1EXCMBX01.stanwell.com>
X-Virus-Scanned: Debian amavisd-new at bestpractical.com
X-MS-Tnef-Correlator:
X-Spam-Score: -2.434
Received: from localhost (localhost [127.0.0.1]) by hipster.bestpractical.com (Postfix) with ESMTP id ADC69240458 for <cpan-bug+Chart-Gnuplot [...] hipster.bestpractical.com>; Wed, 26 Feb 2014 23:56:22 -0500 (EST)
Received: from hipster.bestpractical.com ([127.0.0.1]) by localhost (hipster.bestpractical.com [127.0.0.1]) (amavisd-new, port 10024) with ESMTP id ThfhHd8c20yg for <cpan-bug+Chart-Gnuplot [...] hipster.bestpractical.com>; Wed, 26 Feb 2014 23:56:16 -0500 (EST)
Received: from la.mx.develooper.com (x1.develooper.com [207.171.7.70]) by hipster.bestpractical.com (Postfix) with SMTP id A4C63240358 for <bug-Chart-Gnuplot [...] rt.cpan.org>; Wed, 26 Feb 2014 23:56:15 -0500 (EST)
Received: (qmail 7211 invoked by alias); 27 Feb 2014 04:56:13 -0000
Received: from mail1.stanwell.com (HELO mail1.stanwell.com) (203.41.220.252) by la.mx.develooper.com (qpsmtpd/0.28) with ESMTP; Wed, 26 Feb 2014 20:56:10 -0800
Received: from EXCHUB02.stanwell.com (exchub02.stanwell.com [10.200.13.175]) by mail1.stanwell.com (8.14.5/8.14.5) with ESMTP id s1R4ulll007208 (version=TLSv1/SSLv3 cipher=AES128-SHA bits=128 verify=OK) for <bug-Chart-Gnuplot [...] rt.cpan.org>; Thu, 27 Feb 2014 14:56:48 +1000
Received: from DC1EXCMBX01.STANWELL.com ([fe80::d5ec:50f8:50df:4c6d]) by EXCHUB02.stanwell.com ([::1]) with mapi id 14.03.0174.001; Thu, 27 Feb 2014 14:56:01 +1000
Delivered-To: cpan-bug+Chart-Gnuplot [...] hipster.bestpractical.com
Subject: Graph output going to standard error
Return-Path: <prvs=1135145cb2=Alan.FORD [...] stanwell.com>
Thread-Index: Ac8zeDYFCbVXeo0OSde9bRJhb15rBg==
X-RT-Mail-Extension: chart-gnuplot
X-Original-To: cpan-bug+Chart-Gnuplot [...] hipster.bestpractical.com
X-Spam-Check-BY: la.mx.develooper.com
Date: Thu, 27 Feb 2014 04:56:01 +0000
X-Spam-Level:
X-MS-Has-Attach:
Thread-Topic: Graph output going to standard error
X-Originating-Ip: [10.200.13.240]
Accept-Language: en-AU, en-US
To: "'bug-Chart-Gnuplot [...] rt.cpan.org'" <bug-Chart-Gnuplot [...] rt.cpan.org>
From: "Ford, Alan" <Alan.FORD [...] stanwell.com>
X-RT-Interface: Email
Content-Length: 0
content-type: text/plain; charset="utf-8"
Content-Transfer-Encoding: quoted-printable
X-RT-Original-Encoding: ascii
Content-Length: 1754
Download (untitled) / with headers
text/plain 1.7k
Hi, Great product, really handy. I had to modify you Gnuplot.pm to allow streaming to STDOUT... This program would stream the result to STDERR #----- Start prog -----# #!/usr/bin/perl use Switch; use Chart::Gnuplot; # Input data source my @x = (-10 .. 10); my @y = (0 .. 20); # Chart object my $chart = Chart::Gnuplot->new( gnuplot => "/usr/local/bin/gnuplot", terminal => "png", output => "| base64", ); # Data set object my $dataSet = Chart::Gnuplot::DataSet->new( xdata => \@x, ydata => \@y, ); # Plot the graph $chart->plot2d($dataSet); #----- End prog ----# The change I made was at line 1001 Your code... #---- Begin Snippet ----# # Execute gnuplot my $cmd = qq("$gnuplot" "$self->{_script}"); $cmd .= " -" if ($self->{terminal} =~ /^(ggi|pm|windows|wxt|x11)(\s|$)/); my $err = `$cmd 2>&1`; # my $err; # system("$cmd"); #---- End Snippet ----# My code... #---- Begin Snippet ----# # Execute gnuplot my $cmd = qq("$gnuplot" "$self->{_script}"); $cmd .= " -" if ($self->{terminal} =~ /^(ggi|pm|windows|wxt|x11)(\s|$)/); my $TmpFile = "/tmp/gnuplot.$$.err"; my $out = `$cmd 2>$TmpFile`; my $err = `cat $TmpFile`; `rm -f $TmpFile > /dev/null 2>&1`; # my $err; # system("$cmd"); # Print normal output if (defined $out && $out ne '') { print $out; } #---- End Snippet ----# Thanks Alan Ford Senior Database Administrator Com Serv - Information Communications and Technology Stanwell Corporation Limited Tel (07) 3335 7243 | Mob 0407 610 141 GPO Box 773, Brisbane, QLD 4001 www.stanwell.com<http://www.stanwell.com> This email is to be read subject to the email disclaimer located at http://www.stanwell.com/email-disclaimer.aspx
content-type: text/html; charset="utf-8"
Content-Transfer-Encoding: quoted-printable
X-RT-Original-Encoding: ascii
Content-Length: 8207


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.