如何把Gotagger标注格式转换为claws格式？Perl代码
- 主题发起人 singer
- 时间
Thanks ,Dr.Xu, Your method works well.
I will put some sentences here.
before replacing:
A_DT Healthy_NNP Diet_NNP
A_DT healthy_JJ diet_NN is_VBZ very_RB important_JJ for_IN people_NNS ._. It_PRP contains_VBZ some_DT fat_JJ ,_,
after replacing:
A<DT>Healthy<NNP>Diet<NNP
A<DT>healthy<JJ>diet<NN>is<VBZ>very<RB>important<JJ>for<IN>people<NNS>.<.>
We can see there a few "<.>" here, how can I remove them?Thanks for your reply.
I will put some sentences here.
before replacing:
A_DT Healthy_NNP Diet_NNP
A_DT healthy_JJ diet_NN is_VBZ very_RB important_JJ for_IN people_NNS ._. It_PRP contains_VBZ some_DT fat_JJ ,_,
after replacing:
A<DT>Healthy<NNP>Diet<NNP
A<DT>healthy<JJ>diet<NN>is<VBZ>very<RB>important<JJ>for<IN>people<NNS>.<.>
We can see there a few "<.>" here, how can I remove them?Thanks for your reply.
Here is a Perl script that that converts the word_tag style into the word<tag> style. I have commented the script for those interested. You can save the text below as a format.pl.
opendir (DIR, ".") or die "Could not open the current directory"; #open the current dir
@files=readdir (DIR); #read all files in the dir and save them in an array
closedir (DIR); #close the dir
foreach $file (sort (@files)) #loop dealing with each file
{
next if ($file eq "."); #skip the file named '.'
next if ($file eq ".."); #skip file name ".."
next if ($file=~/format\.pl/); #skip the perl script itself
open (FHI, $file) or die "Could not open $file"; #open the file or exit
$output="new_".$file; #name the output file
open (FHO, ">$output") or die "Could not open $output"; #create output file
while ($line=<FHI>) #read each line in the file
{
$line=~s/(\S+)_(\S+)/$1<$2>/g; #matching and replacing all
$line=~s/ +/ /g; #replace more whitespaces with just one
print FHO $line; #print to the output file
}
close (FHI); #close the input file
close (FHO); #close the output file
}
opendir (DIR, ".") or die "Could not open the current directory"; #open the current dir
@files=readdir (DIR); #read all files in the dir and save them in an array
closedir (DIR); #close the dir
foreach $file (sort (@files)) #loop dealing with each file
{
next if ($file eq "."); #skip the file named '.'
next if ($file eq ".."); #skip file name ".."
next if ($file=~/format\.pl/); #skip the perl script itself
open (FHI, $file) or die "Could not open $file"; #open the file or exit
$output="new_".$file; #name the output file
open (FHO, ">$output") or die "Could not open $output"; #create output file
while ($line=<FHI>) #read each line in the file
{
$line=~s/(\S+)_(\S+)/$1<$2>/g; #matching and replacing all
$line=~s/ +/ /g; #replace more whitespaces with just one
print FHO $line; #print to the output file
}
close (FHI); #close the input file
close (FHO); #close the output file
}
Dr.Xiao, I have another to ask you to help me, that is how to extract the combinations of nouns modified by adjectives in the following XML text: could you tell me the search pattern?
thank you in advance.
<w POS="AT">the</w> <w POS="NP">Fulton</w> <w POS="NN">County</w> <w POS="JJ">Grand</w> <w POS="NN">Jury</w> <w POS="VBD">said</w> <w POS="NR">Friday</w> <w POS="AT">an</w> <w POS="NN">investigation</w> <w POS="IN">of</w> <w POS="NP$">Atlanta's</w> <w POS="JJ">recent</w> <w POS="NN">primary</w> <w POS="NN">election</w> <w POS="VBD">produced</w> <w POS="AT">no</w> <w POS="NN">evidence</w> <w POS="CS">that</w> <w POS="DTI">any</w> <w POS="NNS">irregularities</w>
thank you in advance.
<w POS="AT">the</w> <w POS="NP">Fulton</w> <w POS="NN">County</w> <w POS="JJ">Grand</w> <w POS="NN">Jury</w> <w POS="VBD">said</w> <w POS="NR">Friday</w> <w POS="AT">an</w> <w POS="NN">investigation</w> <w POS="IN">of</w> <w POS="NP$">Atlanta's</w> <w POS="JJ">recent</w> <w POS="NN">primary</w> <w POS="NN">election</w> <w POS="VBD">produced</w> <w POS="AT">no</w> <w POS="NN">evidence</w> <w POS="CS">that</w> <w POS="DTI">any</w> <w POS="NNS">irregularities</w>
As your corpus is in XML, you can index the corpus using Xaira, declaring the w element as the Addkey. After indexing, open the corpus Xaira client, and use Query builder to search for all occurrences of adjectives (JJ) followed immediately (declare the link type as Next) by a noun (NN).