Foro - Perl en Español

Tengo una pregunta... ¿Cómo reparar la base de datos de SQL cuando se genera un error 823? ¡Por favor, ayúdame!

Buenos días.

Estimados, de nuevo molestando. Tengo un script que me hace varias revisiones en una máquina Linux, pero hay un comando en especial que al enviarlo se queda colgado y para salir de ese comando hay que hacer Ctrl+C desde el teclado.

El tema es que necesito enviar este Ctrl+C de una vez desde el script Perl para evitar que tenga que ser el usuario que lo haga sino más bien lo haga el ...

Hola, gente. Tengo problemas con CPAN. Estoy buscando unos módulos que me permitan realizar una operación por ejemplo cada 30 minutos y otro que me genere números aleatorios.

Saludos.

¿Existe algún script de Perl por ahí para hacerle un datadump a todas las bases de datos MySQL que tenga el servidor y que estos me queden en un directorio ? Ojalá no fuera un módulo si no un script puro Perl.

Hola, gente, ¿cómo están? Espero que bien. Soy nuevo en el foro y me gustaría saber si alguien tiene algún libro bueno de Perl en español. Lo que he encontrado son tutoriales muy superficiales. Se los agradecería mucho. Nos vemos.

Saludos.

Supongamos que tenemos una serie de números como los siguientes:

86.4539
0.0023412
.23442
12.000

¿Existe alguna forma de imprimirlos con un formato de notación científica específica? Por ejemplo:

0.86453900E+02
0.23412000E-02
0.23442000E+00
0.12000000E+02

Ya que si utilizo la función printf ("%.8E" , $var), los números se imprimen como sigue:

8.6453900E+01
2.3412000E-03
2.3442000E-01
1.2000000E+01

Un saludo. Según he leído, se puede importar a Perl código nativo de C como un módulo llevando extensión '.xs' pero aún no me aclaro mucho.

¿Alguna documentación acerca de este tema?

use DBI;
# See "Creating database handle" below
$dbh = DBI->connect ("dbi:CSV:", undef, undef, {
f_ext => ".csv/r",
RaiseError => 1,
}) or die "Cannot connect: $DBI::errstr";

print "Inicio: \n";
# Selecting
my $sth = $dbh->prepare ("select * from fil");
$sth->execute;
$sth->bind_columns (\my ($fname, $lname, $email, $pageid, $studentid, $a, $b));
my $i =0;
while ($sth->fetch) {

print '$userarray = '.$studentid.';'."\n"; # Aqui es mi duda.. cuando $stundeid cambia su valor ?
print '$userarray ...

Hola, un saludo.

Tengo el siguiente problema: No puedo retornar los valores de un hash contenido en una subrutina llamada desde un módulo, un trozo del código:

package query;
sub new {} #
sub struct_user
{
# Almacena datos de los usuarios actualmente conectados.
#my $q = new;
#my $class = shift;
#my($id,$nick,$ip,$modos,$realname,$identd,$timestamp) = @_;
my $struct = {
users => {
$nick => {
id => $id,
nickname => $nick,
ip => ...

Hola, buenos días.

Quiero hacer un pequeño script que me permita leer una primera columna de palabras y que compare cada palabra de la primera columna con las palabras de la segunda columna. Solo si las palabras son iguales quiero que el programa me imprima las columnas ordenadas.

Ejemplo: (file1.txt)
a b
b c
c a
j z

Ejemplo (resultado final)
a a
b b
c c

Con mi programa no consigo el resultado esperado ...