[Sommaire] [Imprimer]

   1  #!/usr/bin/perl
   2  #example of inserting
   3  
   4  use strict;
   5  use Search::OpenFTS::Index;
   6  use DBI();
   7  use DBD::Pg();
   8  
   9  if ( $#ARGV <1 ) {
  10      print "Usage:\n$0 DATABASE file1 [ file2 [...] ]\n";
  11      exit;    
  12  }
  13  
  14  my $dbi=DBI->connect('DBI:Pg:dbname='.shift( @ARGV ).';host=sp',"sp");
  15  $dbi||die;
  16  
  17  my $STID=shift( @ARGV );
  18  
  19  my $idx=Search::OpenFTS::Index->new( $dbi );
  20  die "QQQ: $@" if ! $idx;
  21  
  22  $idx->delete( $STID );
  23  
  24  my $sth = $dbi->prepare( "delete from  txt where tid= ? ;" ); 
  25  $sth->execute( $STID ) || die;
  26  $dbi->disconnect;
  27  
  28