如何使用Perl生成中间带有图片的二维码？

可以实现，核心思路是先生成标准二维码，再用图像处理模块将Logo叠加到二维码中心——直接的二维码生成模块通常没有内置叠加图片的功能，结合图像处理工具就能解决问题。以下是两种可行的实现方案：

方案一：基于GD模块 #

1. 安装依赖模块 #

首先安装必要的Perl模块：

cpanm GD GD::Barcode::QRcode

2. 完整代码示例 #

use strict;
use warnings;
use GD;
use GD::Barcode::QRcode;

# 替换为你要编码的文本/链接
my $qr_content = "https://your-target-url.com";
# 生成基础二维码（H级纠错，保证Logo覆盖后仍可识别）
my $qr_generator = GD::Barcode::QRcode->new(
    $qr_content,
    { Ecc => 'H', Version => 10 }
);
my $qr_img = $qr_generator->plot();

# 加载中心Logo图片（替换为你的Logo路径）
my $logo_path = "your-logo.png";
my $logo_img = GD::Image->new($logo_path) or die "加载Logo失败: $!";

# 计算Logo缩放比例（限制为二维码宽度的1/4，避免破坏识别点）
my ($qr_w, $qr_h) = $qr_img->getBounds();
my ($logo_w, $logo_h) = $logo_img->getBounds();
my $scale = $qr_w / 4 / $logo_w;
my $new_logo_w = int($logo_w * $scale);
my $new_logo_h = int($logo_h * $scale);

# 缩放Logo
my $resized_logo = GD::Image->new($new_logo_w, $new_logo_h);
$resized_logo->copyResampled(
    $logo_img, 0, 0, 0, 0,
    $new_logo_w, $new_logo_h,
    $logo_w, $logo_h
);

# 将Logo叠加到二维码中心
my $x_pos = int(($qr_w - $new_logo_w) / 2);
my $y_pos = int(($qr_h - $new_logo_h) / 2);
$qr_img->copy($resized_logo, $x_pos, $y_pos, 0, 0, $new_logo_w, $new_logo_h);

# 保存最终图片
open my $out_file, '>', 'qr_with_logo.png' or die "保存图片失败: $!";
binmode $out_file;
print $out_file $qr_img->png();
close $out_file;

方案二：基于Imager模块 #

如果你更习惯用Imager处理图像，也可以用这套方案：

1. 安装依赖模块 #

cpanm Imager Imager::QRCode

2. 完整代码示例 #

use strict;
use warnings;
use Imager;
use Imager::QRCode;

# 生成基础二维码
my $qr_generator = Imager::QRCode->new(
    size          => 10,
    margin        => 2,
    version       => 10,
    level         => 'H', # 最高级纠错
    lightcolor    => Imager::Color->new(255,255,255),
    darkcolor     => Imager::Color->new(0,0,0),
);
my $qr_img = $qr_generator->plot("https://your-target-url.com");

# 加载并缩放Logo
my $logo_img = Imager->new(file => "your-logo.png") or die Imager->errstr;
$logo_img = $logo_img->scale(xpixels => $qr_img->getwidth()/4) or die $logo_img->errstr;

# 叠加Logo到中心
my $x = ($qr_img->getwidth() - $logo_img->getwidth()) / 2;
my $y = ($qr_img->getheight() - $logo_img->getheight()) / 2;
$qr_img->rubthrough(src => $logo_img, tx => $x, ty => $y) or die $qr_img->errstr;

# 保存图片
$qr_img->write(file => 'qr_with_logo_imager.png') or die $qr_img->errstr;

关键注意事项 #

• 纠错级别必须选H：这是最高级纠错，即使二维码中心1/4区域被覆盖，依然能正常识别
• Logo尺寸限制：不要超过二维码宽度的1/4，否则会破坏过多识别定位点，导致二维码无法扫描
• 透明背景支持：如果你的Logo是带透明通道的PNG，两个方案都能保留透明效果，生成的二维码也会有透明背景（需要白色背景的话，可以先创建白色画布再叠加二维码和Logo）

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