Busquedas de informacion

[Negrazo]

Hola a todos:
Estoy haciendo una pequeña aplicacion, usando Perl y MySQL, en la que una de las opciones, es la busqueda de informacion en documentos, que estan en una tabla en campos "text".
Realmente esos programas me estan funcionando razonablemente bien, solo que ahora necesito ampliar un poco la busqueda; resulta que mi programa de busqueda me indica cuales registros de una tabla contienen lo que yo ando buscando, pero estos registros son documentos guardados como Objetos con mucho texto y lo que yo necesito es mostrar al usuario, en que parte del Documento esta el resultado de la busqueda, remarcandolo con otro color o con otro Font o con algo que los ayude a hacer su tarea un poco mas facil.

Alguna idea????
Alguien ha hecho algo parecido???
Cualquier ayuda es bienvenida.
Muchas gracias.

Aqui va la parte del codigo que estoy utilizando:

my $sth = $m->prepare("SELECT llave,fechagrab,tipo,documentname,version,document o FROM DocsDetail where MATCH(documento,documentname) AGAINST(' $pat ') ");
$sth->execute();
print "<B><H4><U>Documentos que contienen tu palabra de busqueda:</U> <I>$pat</I> </H4></B>";
print "<table border='4'>\n";
print "<tr><th>Folder</th><th>Fecha</th><th>Tipo</th><th>Documento</th><th>Version</th><th>Ref.</th></tr>";
while (@doc = $sth->fetchrow_array)
{
print "<tr><td>$doc[0]</td>";
print "<td>$doc[1]</td>";
print "<td>$doc[2]</td>";
print "<td>$doc[3]</td>";
print "<td>$doc[4]</td>";
print "<td><a href = imagen.pl?id=$doc[0]&nombre=$doc[3]&version=$doc[4]>$doc[3] </a></td></tr>";
}
print "</table>\n";

print button(-name=>'back', -value=>'Atras', -onClick=>'history.go(-1)');


Aqui la variable $pat es mi palabra de busqueda que viene de un programa anterior.

Un ejemplo de los resultados que me muestra con $pat = "operating system"
seria:

Documentos que contienen tu palabra de busqueda: operating system
Folder Fecha Tipo Documento Version Ref.
Rosita 2007-11-15 text/plain blob.htm 1 blob.htm
Rafael 2007-11-15 text/plain blob.htm 1 blob.htm
Rafael 2007-11-15 text/plain blob.htm 1.1 blob.htm

Espero que sirva de ayuda.
Gracias nuevamente.

Negrazo

[BrujoNic]

Trasladado de BD a Perl. Favor no poner código de programación en BD.

Función de la sección de Base de Datos

[monoswim]

Cual es la duda...Porque lo que haces es correcto, buscas en la base de datos lo que contenga la palabra y luego lo imprimes en HTML, no sabes como mostrarlo en color ? pues usa el tag <font> de html

Saludos

[jferrero]

En $doc[5] tienes el documento entero.

Deberías recorrerlo (supongo que será un array de líneas, si es texto, como pone por ejemplo text/plain), y pintar las líneas en las que coincide con el $pat, remarcándolas, por ejemplo, en rojo:

Código:

foreach ( split "\n", $doc[5] ) {
    if ( s/$pat/<font color="red">$pat<\/font>/g ) {
        print ;
    }
}