Foro - Perl en Español

Eso está descrito casi en la primera línea del manual de DBD::mysql. Sería algo así:

Hola... Muchas gracias por la ayuda con la BD. Ya me conecta y me registra lo que le pongo ahí y también me funciona bien lo que es el script para editar los logs. Ahora quisiera hacer una consulta de cómo podría hacer para unir los dos scripts en uno solo.

Bueno, a mi se me ocurrió en el primero implementar un método con un bucle que me ingrese cada línea del archivo nuevo que genero con los URL filtrados, pero no sé qué me recomiendas que haga.

Nuevamente, muchísimas gracias, ¡tu foro es un éxito!

Bueno, recién hice esto. Acá intento leer el archivo línea a línea e insertar cada línea a la base de datos:

#!/usr/bin/perl
use v5.12;
use autodie;
my %url;

use strict;
use warnings;

use DBI;

my $dbname = 'crawlerdb';
my $dbhost = '127.0.0.1';
my $dbport = 3306;
my $dbuser = 'usuario';
my $dbpwd = 'pass';


$linea
open my $LOG2, '>', '/root/logs/ns5/nuevo.1';
while(my $linea = <$LOG2>)
{
if ($linea != '')
{
print $linea;
my $dsn = "DBI:mysql:database=$dbname;host=$dbhost;port=$dbport";
my $dbh = DBI->connect( $dsn, $dbuser, $dbpwd )
or die "Error de conexion: $DBI::errstr\n";
## Preparar la sentencia de insercion en la base de datos
my $sth = $dbh->prepare( "insert into direcciones ( nombre) values ( ? )" );
## Insertar un registro en la tabla
##
$sth->execute("$linea");
## Leer los registros de la tabla
##
$sth = $dbh->prepare("select nombre from direcciones");
$sth->execute();
while ( my $row = $sth->fetchrow_hashref )
{
print "id: " . $row->{id} . "\n";
print "nombre: " . $row->{nombre} . "\n";
}
## Desconectarse de la base de datos
##
if ( !$dbh->disconnect )
{
warn "Error al desconectarse de la base de datos: $DBI::errstr\n";
}
}
}
close $LOG2;


Nuevamente, muchas gracias

PD: para poder evitar replicas en la base de datos ¿se podría usar algún condicional que me diga si ya existe ese nombre, y si no existe que lo inserte, o de lo contrario, que pase al siguiente?

Si la URL la guardas en un campo que antes lo has definido como clave de la tabla a la que pertenece, el motor de búsqueda no te permitirá crear un nuevo registro.

Yo creo que la solución más cómoda es usar siempre UPDATE: si el registro existía, será sobreescrito con el nuevo, y si no existía, será creado.

Lo bueno de esto es que puedes tener un campo de tipo timestamp, que se actualizará con la fecha de la última actualización, y así tendrás una medición de cuándo fue la última vez que viste cada URL.

Bueno, a ver si te entendí bien. O sea, tendría que poner un solo campo en mi tabla que va a ser el URL y a la vez, ¿éste sería el primary key? Y una cosa más. En el código anterior estoy intentando abrir el nuevo fichero con los datos filtrados para meter cada uno a la BD pero me da un error al recorrer el fichero. No sé si me puedas ayudar con eso, porque me funciona el insert en el primer script que me filtra los logs y me genera uno nuevo pero se pasan algunos caracteres en el nuevo log, así que los edito manualmente y lo guardo ya que son pocos por eso quería hacer un nuevo script que me lea el nuevo log y como van a estar todas las URL ordenadas verticalmente, ingresar cada una a la BD con el código anterior pero me da error y no he podido solucionarlo.

[root@crawler ~]# perl /root/logs/ns5/final.pl
Global symbol "$linea" requires explicit package name at /root/logs/ns5/final.pl line 19.
syntax error at /root/logs/ns5/final.pl line 19, near "$linea
open "
Execution of /root/logs/ns5/final.pl aborted due to compilation errors.
[root@crawler ~]#

Nuevamente te agradezco por todo el apoyo...

Perl te avisa de que hay un error sintáctico.


Tienes un

$linea

solitario.

Debes escribirlo como

my $linea;

No es necesario que la tabla solo tenga un campo. Habrá tantas columnas como tu quieras. La cuestión es a la hora de hacer los INSERT o UPDATES: el motor de la base de datos se fijará en los campos que son clave para garantizar su unicidad. Entonces, tu intentas hacer el INSERT o el UPDATE, y la base de datos responderá con un acierto o con un fallo (indicando que ya existía la clave), pero no importa ninguno de los dos, porque suponemos que funciona bien cuando se hace la inserción de un elemento que no existía. El caso es que si solo haces UPDATES, lo tienes resuelto, porque esa es la misión de UPDATE: agregar registros sobreescribiendo a los anteriores o creando nuevos.