Perl - 将ASCII艺术转换为使用x运算符

Question

我想将ASCII艺术转换为占用较少字节的东西。我有这样的字符串：

my $string = '                ██   ████   █';

我会把它转换成这样的东西：

print "█" x 1."█" x 1."█" x 1"█" x 1"█" x 1;

所以我会在一行中写这个并转换为使用x运算符。怎么能实现这个目标？

Answer 1

print '                ██   ████   █' x 1;

就个人而言，我只满足您的一项要求。

单行：

print '                ██   ████   █';

使用x：

print(
   ' ' x 16, '█' x  2,
   ' ' x  3, '█' x  4,
   ' ' x  3, '█' x  1,
);