| a | b | c | d | e | f |
| a | q | c | d | e | f |
| a | b | c | d | e | █ |
| █ | b | c | d | e | f |
-------
-------
| a | b | c | d | e | f |
| a | q | c | d | e | f |
| a | b | c | d | e | █ |
| █ | b | c | d | e | f |
####
#!/usr/bin/env perl
use 5.16.0;
use utf8;
use strictures;
binmode STDOUT, 'utf8';
use open OUT => ':utf8';
my $out_string = '
';
use Text::Table::HTML;
my $rows = [
[ "a" .. "f" ],
[ "a", "q", "c" .. "f" ],
[ "a" .. "e", "\x{2588}" ],
[ "\x{2588}", "b" .. "f" ],
];
my $string = Text::Table::HTML::table(rows => $rows);
say "$string";
say "-------";
$out_string .= $string;
say "-------";
say "$out_string";
$
####
------------string inserted
"\n| a | b | c | d | e | f |
\n\n| a | q | c | d | e | f |
\n| a | b | c | d | e | █ |
\n| █ | b | c | d | e | f |
\n\n
\n"
------------string to be inserted ^^^
Can't use string ("
| a | b | "...) as a SCALAR ref while "strict refs" in use at template_stuff/html9.pm line 150.
$
####
say "------------string inserted";
use Text::Table::HTML;
use Data::Dump;
my $rows = [
[ "a" .. "f" ],
[ "a", "q", "c" .. "f" ],
[ "a" .. "e", "\x{2588}" ],
[ "\x{2588}", "b" .. "f" ],
];
my $string = Text::Table::HTML::table( rows => $rows );
#say "$string";
dd $string;
say "------------string to be inserted ^^^";
print $fh $$string;