Foro - Perl en Español

Buen día a todos,

Estoy haciendo un programa como repaso, pero he llegado a un punto de la lógica no me deja continuar; ok, el punto es que realicé cambios de posición a un string en base a arreglo. Por ejemplo.

Code: Seleccionar todo

arrayOrden = [3,2,4,1,0,5] //este es el orden en que se ordenará el string

ArrayPalabra=[costa_] //palabra a ordenar

Utilizando estos dos a array pude cambiar el orden fácilmente quedando de la siguiente manera:

Code: Seleccionar todo

arrayCambio=[tsaoc_]

pero ...

Hola

Estoy programando en PHP y necesito ejecutar un método de un script desde otro script si se cumple una condición (si una variable tiene un determinado valor), es decir, no tiene que cambiar ningún objeto de estado... Hasta ahora había usado onChange=""... pero ahora no sé cómo hacer... si alguien me pudiera ayudar,

Muchas gracias

No sé si pregunto en el lugar correcto debido a que es sobre un código Perl/Tk.

Resulta ser que el programita en cuestión realiza consultas a Mysql; tengo una función que cuando la subconsulta se realiza satisfactoriamente, le avisa al usuario que se realizo satisfactoriamente... pero cuando falla la consulta (ya sea porque existe la tabla, o error de conexión a Mysql, o cualquiera error) debería imprimir en pantalla "Error No se pudo" y es ...

Les cuento. Tengo un script de JavaScript para hacer Select dependientes y su código es este:

contents=new Array();

function TCN_addContent(str){
contents.push(str);
arrayValues = new Array();
for(i=0;i<contents.length;i++){
arrayValues=contents.split(separator);
}
}

function TCN_makeComboGroup(){
comboGroup=new Array();
args=TCN_makeComboGroup.arguments;
for(i=0;i<args.length;i++){
comboGroup=MM_findObj(args);
}
}

function TCN_startCombo(){
combo1=comboGroup;
for (i=0;i<arrayValues.length;i++){
existe=false;
for(j=0;j<combo1.options.length;j++){
if(arrayValues==combo1.options.text){
existe=true;
}
}
if(existe==false){
combo1.options=new Option(arrayValues,arrayValues);
}//end if
}//for(i)
combo1.options.selected=true;
TCN_reload(combo1);
}//function

function TCN_reload(from){
//averiguamos el indice del combo que llama:
for(j=0;j<comboGroup.length;j++){
if(comboGroup==from){
//el nuestro es el siguiente
i=j+1; ...

Saludos, Perleros. Tengo el siguiente código que me comprime un montón de archivos en 3 paquetes. Todo funciona bien, pero el problema llega los días 31. Ese día no hace el proceso. ¿Alguna idea de qué es lo que esté pasando?

Saludos.

#!/usr/bin/ksh

. $HOME/.profile

export COLECTORHOME=/export/home/colljvip/LatJitterLan_thread
export AYER=`date '+%y:%m:%d' | awk -F":" '{printf"20%2d%2d%2d\n",$1,$2,($3-1)}' | sed 's/ /0/g'`;
export AYER=$1

export prefix=pruebas_latencia

cd ${COLECTORHOME}/historico/data

echo ${AYER}0
gzip ${prefix}${AYER}0*
tar -cvf Tar_${AYER}0.tar ${prefix}${AYER}0*
rm ${prefix}${AYER}0*

echo ...

Hola necesitaría saber de qué forma puedo rellenar un select múltiple con CGI::Ajax al apretar un botón, lo que necesitaría es de qué forma puedo mostrarlo dinámicamente a medida que voy ingresando, me vayan apareciendo en el Select Multiple. Muchas gracias desde ya y felicitaciones para el mejor foro de Perl en español de Internet. Abrazos

Hola, estoy empezando en AJAX y estoy ejecutando ejemplos hechos en Internet, y estoy ejecutando un ejemplo explicado en la dirección: http://www.desarrolloweb.com/articulos/ ... x-php.html, pero no me funciona.

No sé por qué es, estoy cansado de modificar cosas pero no sé qué es lo que falla porque yo le doy al select y no hace nada, no se carga el 2º select; el código es:

<?
//incluímos la clase ...

Hola, he reailizado una aplicación web con php y mysql y uso phpMyAdmin para administrar la BD. Yo programaba en mi portatil en localhost y todo iba bien, pero al 'instalar' la base de datos en el servidor tuve que cambiar el nombre del servidor en phpMyAdmin de 'localhost' por la ip del servidor '192.26.0.200' y a partir de ahí la aplicación funciona bien pero no puedo acceder a phpMyAdmin, cuando escribo en el navegador: ...

Estimad@s amig@s,

Mi nombre es Emilio, me encanta la programación y estoy empezando a ver algunas cosas de Perl. Estoy trabajando con una aplicación y necesito agregarle funcionalidades. La aplicación cuenta con un acceso a base de datos de archivo de texto formada por 3 archivos .db y uno .map.

Es un formato que no conocía. Y me preguntaba si conocen dicho tipo de base de datos y si existe alguna aplicación para poder exportar ...

Hola, soy nuevo en Perl, y estoy haciendo un programita para base de datos con MySQL, pero no marca error ni tampoco muestra resultados en la pantalla. El código se muestra a continuación:

#! /perl/bin/perl
print "content-type: text/html\n\n";

use DBI;

$db="itlm";
$host="localhost";
$port="3306";
$userid="hugoa";
$passwd="hugoa";
$connectionInfo="DBI:mysql:database=$db;$host:$port";

$dbh = DBI->connect($connectionInfo,$userid,$passwd) or die "No se puede conectar con la base de datos, intentelo mas tarde";

$query = "SELECT * FROM alumno";
$sth = $dbh->prepare($query);
$sth->execute();

print "Resultados<p>"; ...