tange/tangetools
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

plotpipe: --nox = first column is not x-axis.

Browse source
This commit is contained in:
Ole Tange 2020-11-06 09:48:29 +01:00
parent fb1c5b18ce
commit 4f131005cb
1 changed files with 27 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

30
plotpipe/plotpipe
View file

@ -9,7 +9,7 @@ plotpipe - Plot CSV data from a pipe
=head1 SYNOPSIS
I<datagenerator> | B<plotpipe> [-H] [-0] [-C str] [-h] [-V]
I<datagenerator> | B<plotpipe> [-n] [-H] [-0] [-C str] [-h] [-V]
=head1 DESCRIPTION
@ -48,6 +48,14 @@ B<--header>.
Show help.
=item B<--nox>
=item B<-n>
No x-value. In a multi-column input the first value will normally be
used as x-value. B<--nox> will use line number as x-value.
=item B<--null>
=item B<-0>
@ -153,6 +161,7 @@ sub options_hash() {
"colsep|col-sep|C=s" => \$opt::colsep,
"help|h" => \$opt::help,
"null|0" => \$opt::null,
"nox|n" => \$opt::nox,
"header|H" => \$opt::header,
);
}
@ -327,23 +336,22 @@ $ENV{'TMPDIR'} ||= "/tmp";
my($filehandle,$filename) =
tempfile(DIR=>$ENV{'TMPDIR'}, TEMPLATE => 'plotXXXXX');
my $ncols = split /$opt::colsep/, $csv[0];
if($ncols >= 2) {
if($ncols >= 2 and not $opt::nox) {
# Column 1 = x-axis
for(@csv) {
chomp;
print $filehandle ((join "\001", split /$opt::colsep/, $_),"\n");
}
} else {
# Column 1 = y-axis
my $t = 1;
# Convert 1 column to 2 column
# All data = y-axis, invent x-axis
my $x = 1;
for(@csv) {
chomp;
print $filehandle ((join "\001", $t++, $_),"\n");
print $filehandle ((join "\001", $x++, split /$opt::colsep/, $_),"\n");
}
# Plot 2 columns
# Prepend dummy header for x-axis
unshift(@header,"");
$ncols = 2;
$ncols += 1;
}
# Generate the variant part of Gnuplot script
@ -367,7 +375,13 @@ set datafile separator "\001";
plot @plotscript
_EOS
if(fork) {
open GNUPLOT,"|-", "gnuplot -p -e ".Q($plotscript) or die;
#print "gnuplot -p -e ".($plotscript);
close GNUPLOT;
unlink $filename;
} else {
# If script dies unexpectedly, remove the file after 5 sec
sleep(5);
unlink $filename;
}