Changeset 1645 for trunk/gsdl
- Timestamp:
- 2000-11-02T15:40:57+13:00 (24 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/classify/phind.pm
r1643 r1645 311 311 my $self = shift (@_); 312 312 313 print STDERR "\n\n**** phind.pm get_classify_info ***\n";314 315 313 my $verbosity = $self->{'verbosity'}; 316 314 my $phindexdir = $self->{'phindexdir'}; 317 315 my $language = "english"; 318 316 317 if ($verbosity) { 318 print STDERR "\n*** phind.pm generating indexes for ", $self->{'indexes'}, "\n"; 319 } 320 319 321 # Construct phind indexes 320 322 my $mode = 1; … … 328 330 329 331 # Use the suffix program to generate the phindex/phrases file 332 print "\nExtracting phrases from processed text (with suffix)\n" if $verbosity; 330 333 &execute("suffix $phindexdir $symbol_limit $mode", $verbosity); 331 334 … … 380 383 # Tidy up stray files 381 384 if (!$untidy) { 382 print "\nCleaning up\n" if $verbosity;385 print "\nCleaning up\n" if ($verbosity > 2); 383 386 &util::rm("$phindexdir/clauses", "$phindexdir/clauses.numbers", 384 387 "$phindexdir/clauses.vocab", "$phindexdir/clauses.stats", … … 501 504 sub execute { 502 505 my ($command, $verbosity) = @_; 503 print "Executing: $command\n" if $verbosity;506 print "Executing: $command\n" if ($verbosity > 2); 504 507 my $status = system($command); 505 508 if ($status != 0) {
Note:
See TracChangeset
for help on using the changeset viewer.