Foro - Perl en Español

¡Hola!

Necesito pasar un array desde un cgi, a una función JavaScript, que se encuentra dentro del cgi.

Intenté hacer esto en el cgi:

my @coins;
$coins = "Quarter";
$coins = "Dime";
$coins = "Nickel";

luego, en el html:
<script type="text/javascript">var list=new array(); list=\@coins;</script>
<INPUT NAME='promo_code' TYPE='TEXT' maxlength=5 SIZE=10 onKeyup="contar(this,list);" VALUE=$issue-{'promo_code'} >

y en la función:
function contar(input,list) {
if(input.value.length >= 4) {
document.getElementById('websitename').style.display='block';
document.getElementById('websitename').innerHTML = input.value;
alert(list);
}
}

Con ...

Hola.

Estoy ejecutando instrucciones por ssh y necesito poner '$' como contenido de una variable y utilizarla en otro script, pero no me acepta. Por ejemplo :

my $var="$";

En especifico, lo que quiero hacer es ejecutar una consulta mediante ssh en un servidor de correo Zimbra, y ejecutar el comando awk para recopilar unos parámetros.

Les adjunto algo del código...

my $doble_comilla=""";
$cuenta_mostrar="ronald.rivera";
my $comilla="'";
my $sig= "$";
my $p1=$sig."1";
my $p2=$sig."2";
my ...

Amigos de esta gran comunidad:

Estoy evaluando entrar a un sitio web con LWP::UserAgent ya que es un módulo que he utilizado por harto tiempo. Utilizando Wireshark me fijo que al pedir la primera página index, me trae los valores de las cookies, lo que me permite seguir navegando en el sitio, específicamente el inicio de sesión. Luego, cuando hago una petición GET con el navegador a la página de login, aparecen estas cookies de ...

Estoy haciendo un programa que se conecta a una página y la página guarda los datos con la IP. Entonces el problema es cuando se cambia la IP al reiniciar la computadora.

Entonces estaba pensando en buscar un valor único de una computadora para que la página no registre los IP repetidas o IP de la misma máquina que es lo que no quiero.

Pensé en usar un texto generado con rand() y guardarlo en ...

Hola,

Soy nuevo en Perl, y estoy tratando de crear un script .pl que haga lo siguiente:

Tengo un archivo pdf con la siguiente estructura en el nombre del archivo:
AAA_BBB_CCC_DDD_EEE.pdf

Necesito que el script genere otro archivo con otra extensión, por ejemplo txt, y que dentro muestre el nombre del archivo como si fueran parámetros, así:

@@TEXT01: AAA
@@TEXTO2: BBB
@@TEXTO3: CCC
@@TEXTO4: DDD
@@TEXTO5: EEE

y que ese nuevo archivo se llame AAA_BBB_CCC_DDD_EEE.txt ...

Hola a todos.

Estoy tratando de generar un script en Bash desde un script en Perl a partir de una variable que contiene las líneas de dicho script.

El problema viene al ejecutar el script, me salen errores con el retorno de carro (\r).

El contenido de la variable podría ser cualquier script en Bash que se recoje desde una base de datos MySQL, de una columna TEXT, y que se ha escrito y subido ...

Es que he visto en este foro programas con no sé si es un módulo, qw, y quisiera saber para qué sirve o qué es lo que hace, es que todavía soy nuevo en Perl xD

Hola. Tengo un archivo csv en el que el primer campo hay una fecha con este formato: 20120731, es decir añomesdia.

¿Cómo podría separarla en tres campos,

2012,07,31

con split() y substr()?

¿Hay un módulo en CPAN para tratamiento de archivos CSV?

Alguna idea, por favor. Gracias de antemano.

SALUD

Buenos días.

Me encuentro en un dilema con este script. Lo que necesito es que busque en cada línea del archivo blastx_l.txt, cada código de la lista Col_cod.txt y muestre la línea del archivo blastx_l.txt en la que encontró el código.

El problema es que me sigue imprimiendo todas las líneas del archivo blastx_l.txt, y no sé por qué :?

¡¡¡Ayúdenme, por favor!!!

# usr/bin/perl -w ...

Hola, ¡¡muy buenas noches!! Acá en Argentina ¡¡son las 02:34 matina!! Ya hora de dormir, pero bueno, me cansé de intentar solucionar esto pero no pude.

El código habla por si solo, no entiendo cómo configurar el sort() para que me devuelva una salida como la que necesito.

cat /home/delkav/labs-scripts/grep
$90850
$0
$389
$469
$670
$750
$684
$21744
$604

%ttys = ();
my @lsarray = `cat /home/delkav/labs-scripts/grep`;
my @array;
$array = <STDIN>; ...