是否存在可将字体绘制为多边形的Perl库，适配矢量绘图及CNC场景

轻量化无依赖方案（适合简单CNC刻字场景） #

直接基于Hershey矢量字体封装即可，这个字体本身就是纯线段构成的，没有曲线，不需要任何外部依赖，完全满足你对精度要求不高、只需要线段近似的需求。
你可以直接封装成你示例中的接口，Perl示例代码如下：

package PolyFont;

# 内置Hershey字体的字符线段定义，此处仅做示例，完整字符集可直接导入公开的Hershey字体坐标数据
my %char_segments = (
    'A' => [ [[0,0], [2,5]], [[2,5], [4,0]], [[1,2], [3,2]] ],
    'B' => [ [[0,0], [0,5]], [[0,5], [3,5]], [[3,5], [4,4]], [[4,4], [4,3]], [[4,3], [3,2]], [[3,2], [0,2]], [[0,2], [3,2]], [[3,2], [4,1]], [[4,1], [4,0]], [[4,0], [0,0]] ],
    # 剩余字符的线段数据可自行补充
);

sub new {
    my ($class, $text, %opts) = @_;
    my $self = {
        text => $text,
        scale => $opts{scale} || 1,
        char_spacing => $opts{char_spacing} || 1,
    };
    bless $self, $class;
    return $self;
}

sub get_lines {
    my $self = shift;
    my @result;
    my $current_offset_x = 0;
    my $char_width = 5 * $self->{scale}; # 单个字符标准宽度

    for my $char (split //, $self->{text}) {
        # 跳过未定义的字符
        next unless exists $char_segments{uc $char};
        # 遍历当前字符的所有线段，做缩放和偏移处理
        for my $seg (@{$char_segments{uc $char}}) {
            my ($p1, $p2) = @$seg;
            push @result, [
                [ $p1->[0] * $self->{scale} + $current_offset_x, $p1->[1] * $self->{scale} ],
                [ $p2->[0] * $self->{scale} + $current_offset_x, $p2->[1] * $self->{scale} ]
            ];
        }
        $current_offset_x += $char_width + $self->{char_spacing} * $self->{scale};
    }
    return @result;
}

1;

调用方式和你给出的示例完全一致：

$f = PolyFont->new("Hello World");
@lines = $f->get_lines();

返回的@lines就是你需要的[[x1,y1],[x2,y2]]格式的线段数组，可直接缩放使用，不会失真。

支持TTF字体的进阶方案 #

如果需要使用自定义字体，可以搭配字体解析库实现：

• Perl环境可以用Font::FreeType库解析TTF文件，读取字符的轮廓路径
• 把轮廓中的贝塞尔曲线、圆弧按你需要的精度拆分成多段短直线，拆分步长越小精度越高
• 按字符顺序拼接所有线段，加上字间距、行间距偏移后即可输出标准线段坐标列表
  这个方案可以支持任意TTF字体，生成的文字效果和系统显示一致，适合对字体样式有要求的场景。

可选优化 #

• 可自行添加坐标旋转、全局偏移的方法，适配不同的CNC工作坐标系
• 可添加重复路径去重、空走路径优化逻辑，提升刻写效率

内容的提问来源于stack exchange，提问作者KJ7LNW