如何使用Perl显示图像

Question

我想编写一个perl脚本来自动登录网站并做一些有趣的事情.问题是我想登录的网站有一个验证码图像.我没有能力反对它,所以我需要读取图像然后将图像显示给用户让用户读取图像上的字符,然后在命令行中键入字符回到程序.我想知道,向用户显示图像的最简单方法是什么？

谢谢.

Answer 1

首先,您可以使用LWP :: Simple来获取图像并将其保存到磁盘.

之后,Windows上最简单的事情就是做

  system("C:\\imagepath\\foo.jpg");

这将在用于显示它的默认应用程序中显示图像.

在OS X上你可以做到

 system("open ~/imagepath/foo.jpg");

在freedesktop.org标准兼容系统上,您可以这样做

 system("xdg-open ~/imagepath/foo.jpg");

这些涉及在命令行应用程序和OS指定的应用程序之间切换以查看图像.如果您希望它更加无缝,您可以使用Perl GUI库并创建一个包含下载图像的窗口