Re^5: PDF search problem

Any other idea? :-)

I just googled for prTTFont PDF::Reuse to see what bugs were out there, and found this bit of advice which pointed to some code in the docs using TrueType_font . It might be worth a try, to get the font object first, then set it as the font.

   my $arial = prTTFont('/path/to/Arial.ttf');
  prFontSize(20);
  prText(20, 700, 'Some text in Arial');
  #
  # ... later ...
  #
  prPage();
  prTTFont($arial);
  prFontSize(12);
  prText(20, 700, 'Some more text in Arial');
  #
  #  to pass a UTF8 string to prText
  # 
  prText(20, 675, "T\x{113}n\x{101} koutou");  # T?n? Koutou
[download]

I'm not really a human, but I play one on earth.
Old Perl Programmer Haiku ................... flash japh

Comment on Re^5: PDF search problem Download Code

Replies are listed 'Best First'.
Re^6: PDF search problem by stolara (Initiate) on Jul 17, 2012 at 19:19 UTC
Many thanks, but unfortunately it didn't work.	[reply]
Re^7: PDF search problem by gsoulis (Initiate) on Sep 23, 2013 at 14:03 UTC
A little experimenting revealed that the text is searchable if it is in the non-TTF fonts (i.e. selected with prFont) and not searchable if it is in an external TTF font (i.e. selected with prTTFont). The following code prints each line twice. The first one can be searched for, but greek text is uninteligible, while the second line, displays greek text fine, but none of it can be searched for `#!/usr/bin/perl use warnings; use strict; use PDF::Reuse; use Encode; prFile('test.pdf'); #reading UTF-8 data from file open FILE, "<testFile.txt" or die "$!\n";; my $content = ""; my $y = 760; while (<FILE>) { chomp; $content = decode('CP1253', $_); #My test file is in Windows Greek prFont('H'); prText(100, $y, $content ); $y-=12; prTTFont('arialuni.ttf'); prText(100, $y, $content ); $y-=40; } prEnd(); close FILE;` [download] I hope someone can understand why this is so, because the text I want to write to a pdf is in Greek and there does not seem to be any solution for me otherwise.	[reply] [d/l]