-
Notifications
You must be signed in to change notification settings - Fork 8
Closed
Description
Due to using syswrite() strings must be passed as UTF-8 encoded bytes:
An example where this is a problem with a workaround:
#!/usr/bin/env perl
use utf8;
use Encode;
use PDL;
use PDL::Graphics::Gnuplot;
use PDL::Constants qw(PI);
sub plot_sin {
my ($w, $coeff) = @_;
my $xrange = [ -2*PI, 2*PI ];
my $x = zeroes(1e3)->xlinvals(@$xrange); my $y = sin($coeff * 2 * PI * $x );
my $title = "y = sin( $coeff * 2π * x )";
# to get around sending text through syswrite()
my $title_octets = encode('UTF-8', $title);
$w->plot(with=>'lines', $x, $y, {
xrange => $xrange,
title => $title_octets, # can not pass $title as-is
});
}Metadata
Metadata
Assignees
Labels
No labels