@@ -122,12 +122,12 @@ sub ocr_file { | |||
my($file) = @_; | |||
my $txt = ''; | |||
open(OCR,"tesseract -l eng+deu+fra+ita %s - |", $file)); | |||
open(OCR,sprintf("tesseract -l eng+deu+fra+ita %s - |", $file)); | |||
while(<OCR>) { | |||
$txt .= $_; | |||
} | |||
close(OCR); | |||
return $txt; | |||
} | |||
sub create_page_words { |