Foro - Perl en Español

Hola, Perl en español.

Desde hace tiempo (casi 7 años) vengo trabajando sin problema con mi instalación de Perl 5.14.2 en Windows 10 (aún tengo el instalador y guardé el site/lib). Pero en mi empresa empleadora me cambiarán mi PC por una nueva y me piden que utilice la última versión de Perl. Fui a Active State y me recomienda Perl 5.36. Además me entero que el manejo de instalación y paquetes se maneja a ...

Hola a todos.
He estado fuera del mundo Perl por un buen rato. Pero ahora tengo la necesidad, nuevamente, de usarlo como herramienta principal de desarrollo.
En mi compu, tengo el ambiente Ubuntu 21.04 y trabajo con MySQL.
Mis preguntas son varias:
1.- Donde debo colocar el directorio con mis scripts?
He visto varios temas al respecto, unos dicen que en /usr/lib/cgi-bin otros dicen que en /var/www/html y hay otros que no recuerdo. La verdad ...

Hola.

Quisiera saber si hay alguna forma de controlar con Perl qué adaptador de conexión a Internet se usa, cómo cambiarlo si se necesitase.

Ejemplo: Estoy conectado a la red de cable con el Ethernet adapter y quiero cambiar al Wireless LAN adapter Wi-Fi y conectarme a una red de la cual tengo credenciales.

Tengo Windows 10.

Gracias por adelantado.

Buenos días a todos (y en especial a explorer).

Tengo un problema para capturar unos valores con una expresión regular que tiene como base la aparición de dos saltos de línea consecutivos.

He de capturar 2 valores de una tabla incluida en un archivo con formato .txt y la única forma de hacerlo es, primero detectar un doble salto de línea y después capturar los valores, ya que la tabla no tiene un número de ...

Buenas, necesito quitar un salto de linea de un fichero. Sólo sé sustituir un carácter por otro y eso me funciona, pero no sé hacerlo en el mismo fichero, me sale si leo uno y creo otro fichero con la modificación.

Yo hago esto:

my $FichR = $pathDestino."\\".$dsn;

open(FICHERO, '<:encoding(UTF-8)', $FichR) or die "No se pudo abrir el $pathDestino./.$dsn";
open(SALIDA, ">$pathDestino/$dsn");
while ($linea1 = <FICHERO>){
$linea1 =~ s/VULKAN/VULKANO/g;
print SALIDA $linea1;
}
close ...

¿Qué tal, explorer?. Cuando pienso que conozco Perl, no obtengo los resultados esperados. Tengo éste script y no me despliega todos los mensajes que estoy enviando con el print:

#!/usr/bin/perl
use perlchartdir;
use CGI;
use DBI;
use POSIX; #permite acceder a todos (o casi todos)los identificadores estándar POSIX 1003.1.
#A muchos de estos identificadores se les ha dado interfaces de Perlish
use Date::Calc qw(Monday_of_Week Add_Delta_Days); #UTILIZADO PARA EL MANEJO DE FECHAS. USO ESENCIAL
use Time::Local ...

Pregunta básica: Viendo código por otros lados me ha surgido la duda de la declaración de un arreglo:

OPCION 1: $data0=;
OPCION 2: @arr = ();

¿Cuál es la mejor opción y por qué?

Gracias y Respetos.
seafree

¿Qué tal, amigos? Agradeceré su apoyo para lo siguiente:

Al listar los módulos de Perl instalados en servidor de Centos 7, utilizando #instmodsh busco el módulo Date::Calc y no lo lista.

PERO SI EJECUTO: # yum info perl-Date-Calc muestra el siguiente resultado:
Installed Packages
Name : perl-Date-Calc
Arch : noarch
Version : 6.3
Release : 14.el7
Size : 689 k
Repo : installed
From repo : base
Summary : Gregorian calendar date calculations
URL : ...

Hola a todos.

Tengo un par de reportes en los que leo de una simple tabla y trato de desplegar todos los registros y funciona bien, solo que en ambos está omitiendo el primer registro.

¿Será cosa del controlador?

Odio Windows, pero así me lo pidió un cliente y ¡ni modo! Lo que el cliente pida.

Yo sé que en Windows se tiene que crear un origen de datos y estos son ODBC.
¿Alguien tendrá ...

¿Qué tal? Necesito deshabilitar los checkbox para que no puedan ser reelegidos y no logro terminarlo. Formo los textbox al consultar a una base de datos:

FORMACIÓN DE LA SELECCIÓN MÚLTIPLE:
print<<"html";
<div class="multipleSelection" align="left";>
<div class="selectBox"
onclick="showCheckboxes()">
<select>
<option>RELACI&Oacute;N DE ALARMAS</option>
</select>
<div class="overSelect"></div>
</div> <!-- <div class="selectBox" -->
<div id="checkBoxes">
html
while(my $ref_alarm = $sth->fetchrow_hashref()) {
($gabinete)=$ref_alarm->{'gabinete'};
($alarma)=$ref_alarm->{'descrip_alarma'};
print "<input type='checkbox' name='alarma' id='alarma' value='$alarma' onclick='alarma_sel(this.value);alarma_reg(this.value);'/>$alarma</input>";
print "<br>";
}
print "<td><div><textarea name='ver_alarmas' id='ver_alarmas' rows='4' ...