use Data::Dump qw(dump);
use Digest::MD5 qw(md5_hex);
use Text::Unaccent::PurePerl;
+use MojoFacets::Data;
sub index {
my $self = shift;
my $path = $self->session('path') || return $self->redirect_to('/data/load');
my $with = $self->param('with') || 'points';
+ my $gnuplot_hide = $self->every_param('gnuplot_hide');
+ warn "## gnuplot_hide=",dump( $gnuplot_hide );
my $hide_columns;
- if ( $self->param('gnuplot_hide') ) {
- $hide_columns->{$_}++ foreach $self->param('gnuplot_hide');
- warn "## hide_columns ", dump $hide_columns;
- }
+ $hide_columns->{$_}++ foreach @$gnuplot_hide;
+ warn "## hide_columns ", dump $hide_columns;
# my $name = join('.', 'items', map { my $n = unac_string($_); $n =~ s/\W+/_/g; $n } @$columns );
my $name = MojoFacets::Data::__export_path_name( $path, 'items', @$columns );
my @plot;
foreach ( 1 .. $#$columns ) {
my $title = $columns->[$_];
+ next if $hide_columns->{$title};
$title =~ s/_/ /g;
my $n = $_ + 1 + $spaces;
push @plot, qq|"$dir/$url" using 1:$n title "$title" with $with| unless $hide_columns->{ $title };
#set yrange [ 0 : ]
$g .= "\n\nplot " . join(',', @plot) . "\n";
+ $g =~ s/\n\n+/\n/sg;
-warn "gnuplot $g";
+#warn "gnuplot $g";
open(my $gnuplot, '|-', 'gnuplot') || die "gnuplot $!";
print $gnuplot $g;