Question

I found this perl script here which seems will work for my purposes. It opens a Unicode text file and reads each line so that a command can be run. But I cannot figure out how to run a certain ICU command on each line. Can someone help me out? The error I get is (largefile is the script name):
syntax error at ./largefile line 11, near “/ .”
Search pattern not terminated at ./largefile line 11.

#!/usr/bin/perl

use strict;
use warnings;

my $file = 'test.txt';
open my $info, $file or die "Could not open $file: $!";

while( my $line = <$info>)  {      
do
LD_LIBRARY_PATH=icu/source/lib/ ./a.out "$line" >> newtext.txt
done
}

close $info;

Basically I want to open a large text file and run the command (which normally runs from the command line…I think how I call this in the perl script is the problem, but I don’t know how to fix it) “LD_LIBRARY_PATH=icu/source/lib/ ./a.out “$line” >> newtext.txt” on each line so that “newtext.txt” is then populated with all the lines after they have been processed by the script. The ICU part is breaking words for Khmer.

Any help would be much appreciated! I’m not much of a programmer… Thanks!

Answer 1

For executing terminal commands, the command needs to be in system(), hence change to

system("LD_LIBRARY_PATH=icu/source/lib/ ./a.out $line >> newtext.txt");