Foro - Perl en Español

Hola. Ejecuté el código que me dejaste pero tuve que cambiar la versión a 5.12 porque es la que tengo, y bueno, darle la ruta respectiva del archivo y me sale lo mismo:


Todo esto es el archivo completo.

O pueda ser que es porque la versión que tengo es la v5.12, o quizás no estoy usando el comando uniq.

¡¡¡Maestro!!! ¡¡¡Muchísimas gracias!!! Ya funciona todo a la perfección, te lo agradezco infinitamente y ya más adelante seguiré molestando con nuevas consultas. ¡je,je!

Hola nuevamente. Bueno, ante todo quería agradecer toda la ayuda que me han brindado desde que ingresé a este foro y, bueno, en esta oportunidad quería hacer una consulta.

¿Cómo podría o de qué forma podría hacer para que un archivo de texto que generé anteriormente con esta forma:

smtp.delcastillo.pe
adsp._domainkey.cuadros.pe
adsp._domainkey.delcastillo.pe
dmarc.binaria.com.pe
dmarc.cuadros.pe
dmarc.delcastillo.pe
sipfederationtls._tcp.cuadros.pe
binaria.com.pe
binaria.pe
cuadros.pe
delcastillo.com.pe
delcastillo.pe

poder hacer que cada una de las direcciones ingrese a una base de datos?

Cada dirección tendrá su propio id y, bueno, antes de ingresar todas estas direcciones que están en un archivo de texto, saber si alguna de éstas ya está en mi base de datos para que no la tome en cuenta, y así poder ir armando un directorio.

Si alguien me puede dar una idea de cómo hacer esto se los voy agradecer ya que no conozco nada de Perl. Casi todo lo hago tomando otros códigos y, bueno, tratando de entenderlos.

Nuevamente, muchas gracias por toda su ayuda.
Saludos.

Bueno, nuevamente muchas gracias por la ayuda y sí, tienes razón, podría hacerlo por ejemplo en Visual o C#, pero esto es un trabajo que me propuse hacer, y bueno, a la vez también quería saber más sobre este lenguaje

Pero bueno, solo tengo que seguir, más bien muchas gracias por la ayuda que se me ha brindado y ya cuando tenga mi primera conexión con la BD publicaré algo

Saludos

Sí, justo estoy revisando códigos de conexión a base de datos y estoy tratando de conectar pero me un error así:



Muchas gracias nuevamente por la ayuda, este es un excelente foro y acá he aprendido muchas cosas que no sabía

PD: en la parte de 123.123.123.123 puse el host del servidor que me están prestando, y bueno, no puse el real porque me pidieron que no lo haga.

Bueno, la base de datos está en MySQL y el servidor escucha en el puerto 60022, pero ¿cómo haría para poner eso en mi código?

#!/usr/bin/perl

use strict;
use warnings;

use DBI;

my $dbname = 'crawlerdb';
my $dbhost = 'ejemplo.pe'; #aca podria ser tabien el ip?? 111.222.333.444
my $dbuser = 'usuario';
my $dbpwd = 'pass';

my $dbh;
my $stmt;
my $sth;
my $row;

## Conectarse a la base de datos
##
$dbh = DBI->connect("DBI:mysql:$dbname;host=$dbhost", $dbuser, $dbpwd)
or die "Error de conexion: $DBI::errstr\n";

## Preparar la sentencia de insercion en la base de datos
$sth = $dbh->prepare(
"insert into direcciones ( nombre) values ( ? )"
);

## Insertar un registro en la tabla
##
$sth->execute( "abc.pe" );

## Leer los registros de la tabla
##
$sth = $dbh->prepare("select nombre from direcciones");
$sth->execute();
while ($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";
}
#####################################################################