Differences
This shows you the differences between two versions of the page.
Both sides previous revision Previous revision Next revision | Previous revision | ||
user:zeman:interset:how-to-use [2007/09/26 19:08] zeman Installation, list of drivers. |
user:zeman:interset:how-to-use [2017/01/16 13:06] (current) zeman |
||
---|---|---|---|
Line 1: | Line 1: | ||
+ | ====== DZ Interset Manual ====== | ||
- | ===== Manual | + | ===== Installation |
- | ==== Installation ==== | + | If you exist on the ÚFAL network and use Perl from PerlBrew, you probably already have '' |
- | If you exist on the ÚFAL network, you can use directly Dan's version here. Otherwise, you need to [[mailto:zeman@ufal.mff.cuni.cz|ask Dan]] for a zipped package of the currently existing drivers. (I intend to maintain it here for download some time later.) Unzip it to a convenient place; below, we assume it is in ''/ | + | <code bash> |
- | **Contributions welcome!** If you write your own driver, please share it with others! If you send it to me, I will add it to the package | + | **Contributions welcome!** If you write your own driver, please share it with others! If you send it to me, I will add it to the package |
- | === Existing drivers === | + | ==== Existing drivers |
- | * tagset:: | + | Use the tool '' |
- | * tagset:: | + | |
- | * tagset:: | + | |
- | * tagset:: | + | |
- | * tagset:: | + | |
- | * tagset:: | + | |
- | * tagset:: | + | |
- | * tagset:: | + | |
- | * tagset:: | + | |
- | ==== How to use the Interset | + | ==== Directory Structure |
- | You can write your own tag conversion | + | The drivers are Perl modules |
- | <code>setenv PERLLIB / | + | <code perl> |
+ | use Lingua:: | ||
+ | </ | ||
- | Once the variable | + | but usually it is more convenient to just call the main module |
<code perl> | <code perl> | ||
- | use tagset::cs::pdt; | + | use Lingua::Interset qw(decode); |
- | use tagset::en::penn; | + | my $fs = decode(' |
+ | </ | ||
+ | |||
+ | The main object in Interset is of the class '' | ||
+ | |||
+ | There is also the driver testing script, '' | ||
+ | |||
+ | |||
+ | ===== How to use the Interset ===== | ||
+ | |||
+ | You can write your own Perl script to convert tags, and use the Interset driver library. You may have to tell Perl where to find Interset (the following commands work in '' | ||
+ | |||
+ | < | ||
+ | setenv PATH / | ||
+ | |||
+ | Once the variable is set, writing a conversion script is very easy. Here is an example (note that in CoNLL-X files we often merge the contents of the CPOS, POS and FEATS columns to create one long string that will be seen by Interset as one “tag”): | ||
+ | |||
+ | <code perl> | ||
+ | use Lingua:: | ||
+ | |||
+ | my $c = new Lingua:: | ||
+ | # Read the CoNLL-X file from STDIN or from files given as arguments. | ||
while(<> | while(<> | ||
{ | { | ||
- | | + | |
{ | { | ||
- | my $tag0 = $1; | + | |
- | my $features | + | my @f = split(/\t/, $_); |
- | my $tag1 = tagset:: | + | |
- | | + | my $utag = $c-> |
+ | my ($upos, $ufeat) | ||
+ | $f[3] = $upos; | ||
+ | $f[5] = $ufeat; | ||
+ | $_ = join(" | ||
} | } | ||
- | print; | + | |
+ | | ||
} | } | ||
</ | </ | ||
- | |||
- | Note the two-step replacement of the original tag. I do not dare to use the original tag in a regular expression because there could be special characters in the tag. | ||