#!/usr/bin/perl
$found="";
while(<STDIN>) {
    if(/<p class="fact">/) {
	chomp;
	$found=$_;
	$found=~s/<p class="fact">//;
	$found=~s/<\/p>//;
	break; #Solo una por fichero
    }
}

exit if(!$found);

if(open(BRUCE,"<bruce.db")) {
    while(<BRUCE>) {
	chop;
	@campos=split(/\#/,$_);
	$frases{$campos[0]}=$campos[1];
    }
    close BRUCE;
}


$frases{$found}++;

$i=0;
open(BRUCE,">bruce.db") || die "No se pudo abrir base de datos";
foreach $fact (keys(%frases)) {
    $i++;
    print BRUCE "$fact#$frases{$fact}\n";
}
close BRUCE;