Help for this page

Select Code to Download


  1. or download this
    s/^\s+\(Text [aA].* (\d+:\d+ .*$)/\.T1 "$1/g;
s/^\s+\(Text [rR].* (\d+:\d+ .*$)/\.T2 "$1/g;
  2. or download this
    %chartran = (
agrave  => "s/\\\xE0/\\\[agrave]/og",
...
Agrave  => "s/\\\xC0/\\\[Agrave]/og",
Aacute  => "s/\\\xC1/\\\[Aacute]/og",
);
  3. or download this
    while (<VRUN>)         {
        foreach $testchar ( keys %chartran )    {
...
                }
         }
}