Re: translation of context words: a Perl script

["W.H. Dekker" <wybo@servaly.hobby.nl>]

Hans Hagen wrote:

> Last week I experimented with something along the same line but with a
> different purpose: automatically translating the underlying source into
> english, but your solution is as compact as can be! (I don't understand
> all the perl in it yet.)

I do have a bash script (one of the few that I did not yet translate
to Perl) that I use to replace words in texts. It takes words and
their translations from a words list.  Perhaps I should now make a
Perl script from it. Here is the heading of the bash script:

#!/bin/bash
# translate - translate file(s) according to a list of word pairs

# occurrences of the first words are replaced by the second words only
# full words are replaced, using the ex \<word\> search pattern

# however, if the -l option is given, a literal translation is made by
# putting the word pairs literally in the sed script, including
# special characters.  Thus the pair:

# .a.b.   abcd

# replaces any sequence of five characters with a second character "a"
# and a fourth character "b" (even those that are not single words)
# with "abcd".

-- 
Hartelijke groet,
Wybo
===================Servalys Analytical Chemistry Services=================
Wybo H. Dekker        | Deilsedijk 60                 | tel (31)345-652164
wybo@servaly.hobby.nl | 4158 CH Deil, The Netherlands | fax (31)345-652383