使用shell命令中的Tesseract perl脚本打印文本输出(use shell comman

嗨，我有一些脚本，我想写，我首先从HTML拍摄影像，然后我想用正方体采取从它的txt输出。 我真的不能弄清楚如何做到这一点。

下面是代码：

#!/usr/bin/perl -X


##########
$user = ''; # Enter your username here
$pass = ''; # Enter your password here
###########

# Server settings (no need to modify)
$home = "http://37.48.90.31";
$url  = "$home/c/test.cgi?u=$user&p=$pass";

# Get HTML code
$html = `GET "$url"`;

#### Add code here:
# Grab img from HTML code

if ($html =~ /\img[^>]* src=\"([^\"]*)\"[^>]*/) {
    $takeImg = $1;
    }
@dirs = split m!/!, $takeImg;
$img = $dirs[2];
#########
die "<img> not found\n" if (!$img);


# Download img to server (save as: ocr_me.img)
print "GET '$img' > ocr_me.img\n";
system "GET '$img' > ocr_me.img";


#### Add code here:
# Run OCR (using shell command tesseract) on img and save text as       ocr_result.txt
system ("tesseract", "tesseract ocr_me.img ocr_result");


###########
die "ocr_result.txt not found\n" if (!-e "ocr_result.txt");

# Check OCR results:
$txt = `cat ocr_result.txt`;

我把从HTML图像正确或我需要另一个正则表达式？ 以及如何显示“ocr_result.txt”

感谢所有谁可以帮助！

文章来源: use shell command tesseract in perl script to print a text output