JPEG::Text (perl module)

[stealth]

Someone is aware? is there a ready-made perl module for parsing jpeg images with clear text appended to the end of the file?

10x in advance.

[dolphin]

to est'?

sorry, nedoponjal...

[VX]

You must use GD perl module to work with images.

Using GD you can do everything with .jpg .png .tiff images, gif is not supported however i's commercal.

[Dark Abyss of Yerevan]

I'm not sure but I think author was asking for a text recognition lib, and not just a lib for basic image manipulation.

[stealth]

OK, for you to fully understand the matter, please view this picture by means of a simple ASCII viewr (the final part) or use `tail' command.
Later give me an advise how to parse this text size by means of perl or PHP.
I think there must be a module. BTW, I tried to do it using standart UNIX stream commands but it was using too much CPU time and taking into consideration the amount of the job done in that direction every day the matter will cost me high in resources.
That is Y I'm lookin' for a ready way develeped by a professional programmer.

Please, get this pic for additional information.
http://never.land.am/~stealth/pics/D....111102.185810
Please, also note, that these files come with no known extension, so you are not to treat it as an error.
Thank you in advance.

[z0mbie]

а во всех image-ах формат текста одинаковый ? например строка "---------------------------------------------------------------" во всех есть ?

[stealth]

Originally posted by z0mbie:
а во всех image-ах формат текста одинаковый ? например строка "---------------------------------------------------------------" во всех есть ?

Да, строка --------------- во всех есть, правда, количество строк текста может различаться, но приблизительно 6-8 строк.

[z0mbie]

вот, это записывает в $text все что находится в файле после жпег картинки

 

$maxtextsize=1000;
$f=fopen("image.jpg","rb");
for($i=1;$i<=$maxtextsize;$i++){
	fseek($f,-$i,SEEK_END);
	if(ord(fread($f,1))==0xFF && ord(fread($f,1))==0xD9) break;
}
	 
while(!feof($f)) $text.=fread($f,100);

[z0mbie]