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


##</code><code>##

#!/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 > SENTENCES_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);