Foro - Perl en Español

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?

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...