Foro - Perl en Español

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

Hola a todos, necesito ayuda con un programa que estoy haciendo y hay algunas opciones que no tengo idea de cómo hacerlo.

Aquí dejo mi programa, espero me puedan ayudar :( me faltan las opciones 3, 6 y 7.

my @lista;
my $accion;
print "Menú:
1.- Agregar en cabecera.
2.- Agregar en cima.
3.- Agregar antes de.
4.- ¿Está vacía?
5.- Imprimir.
6.- Modificar.
7.- ...

Quisiera saber cómo puedo hacer para guardar varios nombres en un arreglo, uno por uno.

Por ejemplo: Que la consola me pida ingresar 5 nombres.

@lista;
print "ingrese nombres";
$nombres = <>; #que se repita 5 veces y que se guarde en @lista

He estado buscando cómo hacerlo con while pero todos los videos son con números y quiero que sea con nombres :(

Hola. Soy nuevo en Perl y me gustaría saber cómo inserto elementos a una pila uno encima de otros (apilar).
En el lenguaje c++ existe algo llamado nodos y es para ir agregando elementos y no sé cómo hacer eso en Perl. :(

Hola buenas tardes, estoy intentando calcular la Distancia de Hamming entre dos cadenas de distinta longitud, y la verdad es que no lo consigo, tengo problemas en las líneas comentadas.

El código no está terminado, pero necesito que me funcione esa parte, para continuar.

¿Alguien podría decirme por qué no me funciona? Muchas gracias.

#!/usr/bin/perl

use 5.010;
use strict;
use warnings;

my $name = 'Arturito, ';
my $email= '[email protected], ...

Hola, estoy intentando modificar un montón de archivos que tienen más menos esta entrada en común:

\item Texto texto texto \vfill

\begin{minipage}{0.7\linewidth}
\begin{enumerate}
\item $45^{\circ}$
\item $50^{\circ}$
\item $55^{\circ}$\hfill {\small fig \thefig.}
\end{enumerate}
\end{minipage}\hfill
\begin{minipage}{0.3\linewidth}
\includegraphics{pr-fig-all}
\end{minipage}\vfill

Mi idea es dejarlo de la siguiente manera:

\item Texto texto texto \vfill

\settowidth{\imagewidth}{\includegraphics{pr-fig-all}}
\begin{minipage}{\dimexpr\linewidth-1.2\imagewidth}
\begin{enumerate}
\item $45^{\circ}$
\item $50^{\circ}$
\item $55^{\circ}$\hfill {\small fig \thefig.}
\end{enumerate}
\end{minipage}\hfill\begin{minipage}{\imagewidth}
\includegraphics{pr-fig-all}
\end{minipage}\vfill
Básicamente deseo agregar una línea ...

Saludos, Perl en Español.

Tengo un script que funciona perfectamente en Windows y uso la consola para comunicarle el estado del proceso al usuario.

Cada vez que inicio el proceso limpio la consola a través de de la instrucción cls:


system('cls');


Creo el ejecutable usando pp.

El ejecutable funciona perfectamente pero cada vez que trato de limpiar la consola aparece la siguiente línea.

Can't spawn "cmd.exe": No such file or directory at ...

Buenas tardes.

Estoy leyendo un pdf con la librería PDF::API2 y leyendo sus metadatos con la librería Image::ExifTool pero necesito crear un nuevo metadato en la sección de propiedades personalizada.

¿Cómo podría hacerlo?

Adjunto pantallazo de la sección que menciono.

Gracias de antemano.

Buenas, soy nuevo en este foro, y lo encontré buscado comunidades hispanas de este lenguaje de programación. Perl me llama mucho la atención pero tengo algunas dudas. Si alguien pudiese explicármelas sería genial.

¿Actualmente es mejor aprender Perl o Raku?

¿Dónde me recomiendan aprender Perl (preferiblemente fuentes en Español)?

¿Por qué Perl es un lenguaje tan interesante para scripting comparado con otros?

Por último, me gustaría que manden algún programa que sea épico en Perl ...

Buenas.

Tengo una duda sobre estos operadores, por saber si son sinónimos o no. Entiendo que "//=" da un valor sólo si la variable es undef. ¿Ocurre lo mismo con "||="?

Por poner esto en un ejemplo:

#!/usr/bin/perl

use v5.28.1;

sub get_sum {
my ($num1, $num2) = @_;
$num1 //= 100;
$num2 //= 100;
return $num1 + $num2;
}

sub get_sum2 {
my ($num1, $num2) = @_;
$num1 ||= 100;
$num2 ||= 100;
return ...