Changeset 2079
- Timestamp:
- 2001-02-27T16:22:13+13:00 (23 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/classify/phind.pm
r2064 r2079 1351 1351 # 2. 1352 1352 # Translate phrases.3 to MGPP input files 1353 my ($key, $text, $word );1353 my ($key, $text, $word, $isThesaurus); 1354 1354 my @fields; 1355 1355 my $linenumber = 0; … … 1393 1393 # output the phrases to a text file 1394 1394 if ($savephrases) { 1395 print SAVE $fields[0], "\t", $fields[2], "\t", "$text\n"; 1395 if ((scalar @fields) == 7) { 1396 $isThesaurus = 1; 1397 } else { 1398 $isThesaurus = 0; 1399 } 1400 print SAVE $fields[0], "\t", $fields[2], "\t$isThesaurus\t$text\n"; 1396 1401 } 1397 1402 }
Note:
See TracChangeset
for help on using the changeset viewer.