Excellent! Works like a charm. But, could anyone explain the error message?
Yours, Per Tunedal On Wed, Feb 13, 2013, at 13:00, Jimmy O'Regan wrote: > On 13 February 2013 11:51, Jimmy O'Regan <[email protected]> wrote: > > On 13 February 2013 11:27, Per Tunedal <[email protected]> wrote: > >> Hi, > >> I'm experimenting with the script on the page > >> http://wiki.apertium.org/wiki/Building_dictionaries . > >> > >> I'm repeatedly getting an error message: > >> > >> 'import sitecustomize' failed; use -v for traceback > >> > >> All the same, I get results: > >> > >> <e><p><l>plånbok<s n="n"/></l><r>Portemonnæ<s n="n"/></r></p></e> > >> <e><p><l>programkod<s n="n"/></l><r>Kildekode<s n="n"/></r></p></e> > >> <e><p><l>register<s n="n"/></l><r>Register<s n="n"/></r></p></e> > >> <e><p><l>replik<s n="n"/></l><r>Replik<s n="n"/></r></p></e> > >> <e><p><l>scanner<s n="n"/></l><r>Skanner<s n="n"/></r></p></e> > >> > >> The Danish national characters are distorted, though. > >> > >> Any suggestions? > >> > > > > cat [your file]|perl -MEncode -ane 'chomp;if(m!(<e><p><l>)([^<]*)(<s > > n="n"/></l><r>)([^<]*)(<s n="n"/></r></p></e>)!){print > > "$1$2$3".encode("iso-8859-1",decode("utf-8", $4))."$5\n";}' > > > > Actually, I can save you a little more editing on the output, if it's > ok to assume that if the left is lowercase, then the right should be > too: |perl -MEncode -ane 'chomp;if(m!(<e><p><l>)([^<]*)(<s > n="n"/></l><r>)([^<]*)(<s > n="n"/></r></p></e>)!){$rec=encode("iso-8859-1",decode("utf-8", > $4));if($2 eq lc($2)){$rec=lc($rec);}; print "$1$2$3$rec$5\n";}' > > -- > <Sefam> Are any of the mentors around? > <jimregan> yes, they're the ones trolling you > > ------------------------------------------------------------------------------ > Free Next-Gen Firewall Hardware Offer > Buy your Sophos next-gen firewall before the end March 2013 > and get the hardware for free! Learn more. > http://p.sf.net/sfu/sophos-d2d-feb > _______________________________________________ > Apertium-stuff mailing list > [email protected] > https://lists.sourceforge.net/lists/listinfo/apertium-stuff ------------------------------------------------------------------------------ Free Next-Gen Firewall Hardware Offer Buy your Sophos next-gen firewall before the end March 2013 and get the hardware for free! Learn more. http://p.sf.net/sfu/sophos-d2d-feb _______________________________________________ Apertium-stuff mailing list [email protected] https://lists.sourceforge.net/lists/listinfo/apertium-stuff
