Question

我有点工作。我有一个cgi文件，其中包含以下代码：

#!/usr/bin/perl
use CGI;
$cgi = new CGI;

open (IMAGE, "ts.jpg");
$size = -s "ts.jpg";
read IMAGE, $data, $size;
close (IMAGE);

print $cgi->header(-type=>'image/jpeg'), $data;

exit;

这会正确显示我的图像文件。但是，我希望用户能够通过Web表单在图像上添加2行文本，以便每次生成新的jpeg。以下是网址：http://elearning.cpma.ca/signature.html

我在cgi文件中遗漏了什么，当我点击＆＃34;添加文字＆＃34;我在cgi文件中遗漏了什么，这将允许我重新发布以显示一个新的jpeg文件，其中包含2行文字。按钮？

非常感谢任何帮助。

Answer 1

您需要一个图像处理库。您会看到很多针对GD或ImageMagick的推荐，但我认为我会使用Imager，因为它更新，更容易使用。

有关改进代码的一些一般性建议。

始终在代码中使用strict和warnings。
使用my（my $cgi = ...）声明变量。
new CGI语法可能存在问题。请改用CGI->new。
使用三个arg open和lexical文件句柄（open my $image_fh, '<', 'ts.jpg')）。
请务必检查open（open my $image_fh, '<', 'ts.jpg') or die $!）的返回代码。

Answer 2

我能够通过GitHUb上的alvarotrigo提供的自述文件创建我想要的东西TextPainter

我需要进行一些小的代码更改才能使其正常工作 - 但是，它很容易实现。不需要CGI。有关我的图片的最终结果，请参阅SignatureFile。感谢所有回复我问题的人。

CGI / Perl脚本创建自定义签名文件

2 个答案: