yao@ubuntu:~/perl$ perl abstract_extractor_by_ting 2.txt
sort: open failed: words_in_SENTENCES: No such file or directory
uniq: SENTENCES_words_sort: No such file or directory
sh: 1: spell: not found
uniq: words_in_SENTENCES_words_comb: No such file or directory
sh: 1: spell: not found
sort: open failed: SENTENCES_WORDS_root: No such file or directory
This is the problem I encounted ,and the following is the code where the above missing files are used
#!/site/bin/perl
system("perl5 sentence_words SENTENCES ADDED_WORDS_LIST");
system("sort -f -o SENTENCES_words_sort words_in_SENTENCES");
system("uniq SENTENCES_words_sort > SENTENCES_words_sort_uniq");
system("mv SENTENCES_words_sort_uniq words_in_SENTENCES");
system("perl5 word_extract2 words_in_SENTENCES");
unlink(words_in_SENTENCES);
unlink(SENTENCES_words_sort);
unlink(SENTENCES_words_sort_uniq);
system("spell -v +ADDED_WORDS_LIST words_in_SENTENCES_words > SENTENCE
+S_err");
open(IN,"SENTENCES_err");
open(OUT,"> SENTENCES_err_list");
loop1:while(<IN>) {
if (/^[+-]/) {
last loop1;
}
print OUT $_;
}
close(IN);
close(OUT);
unlink(SENTENCES_err);
system("perl5 generate_combinations words_in_SENTENCES_words SENTENCES
+_err_list");
unlink(words_in_SENTENCES_words);
unlink(SENTENCES_err_list);
system("uniq words_in_SENTENCES_words_comb > SENTENCES_WORDS");
unlink(words_in_SENTENCES_words_comb);
system("spell -v +ADDED_WORDS_LIST SENTENCES_WORDS > SUBJECT_WORDS_v")
+;
system("perl5 find_root SENTENCES_WORDS SUBJECT_WORDS_v");
unlink(SENTENCES_WORDS);
unlink(SUBJECT_WORDS_v);
system("sort -f -o SENTENCES_STEM SENTENCES_WORDS_root");
unlink(SENTENCES_WORDS_root);
system("perl5 keyword_subject SENTENCES_STEM SENTENCES_words");
unlink(SENTENCES_words);
there are many commands used in the program, like "perl5 " and the two files names follows with the "sort"command ,I just can't get the meaning from these.I am studying some code written by someone else,but I have to let it run successfully and later transfer them on the windows platform. Can someone give me some useful advice:) Thank you so so much:)