Foro - Perl en Español

Hola,

Tengo el siguiente código:
open LANGFILE, 'locale' or die $!;
my @lines = <LANGFILE>;
close(LANGFILE);
if ($string =~ m/es_ES/){
my $langt = "es";
print "es \n";
}

Mi problema es que no funciona. El archivo que abre tiene este texto: es_ES y aun así da como que no encontró esa expresión. ¿Quizás es porque $lines es un escalar?

Help me. :(

Hola, Perleros.
Tengo una duda que llevo varios días dándole vuelta y no he podido resolverla.
A ver si me explico:

En un programa de Inserción de registros (Altas) a una tabla de MySQL, tengo algo como esto:

$sex = "Masculino";
$sex = "Femenino";

# alta de alumno
print "<form action='alta3_alumnos.pl?fec=$dt&fam=$fam&nivel=$nivel&cod=$doc&last1=$last1&last2=$last2&first=$first&cod=$cod&types=$types&ciclo=$ciclo&CGISESSID=$CGISESSID' ID='form1' onsubmit='return verificar();'>";
print "Alumno............: ";
print textfield('alumno', '' ,15,25);
print "<BR>";
print "Apellidos..........: ";
print textfield(last1, '' ,50,50);
print textfield(last2, '' ,50,50);
print ...

¿Que función tiene este código Perl?
y si es inseguro para mi PC.

Hola a todos.

Tengo este problema que me está matando, este es el escenario.

Si yo hago esto: ls -l obtengo lo siguiente.

-rw-r--r-- 1 netrac netrac 2928 jul 8 18:47 file1.pl
-rw-r--r-- 1 netrac netrac 2928 jul 8 19:07 file2.pl
-rw-r--r-- 1 netrac netrac 2928 jul 8 19:10 file3.pl

Ahora bien, lo que necesito solamente son los archivos que fueron accedidos >= 19:00. Por ej.
-rw-r--r-- 1 netrac netrac 2928 jul 8 19:07 file2.pl ...

Buenas, estoy haciendo un script para cuando reciba un mail tome valores dentro de ese mail y los guarde.

Está hecho bien tomando todo los valores cuando el email viene de forma normal sin reemplazo de texto, ni nada de eso. La cuestión es que hay veces que recibo mail con caracteres cambiados; por ej..

el '=' lo reemplaza por =3D cuando la linea es muy larga se corta se le agrega un '=' y ...

Hi! el otro día vi un programa de CGI muy bueno que era para escribir y probar el script en la misma computadora sin la necesidad de usar una web pero lo estoy buscando un Google y no lo encuentro.

¿Alguien conoce el nombre del programa?

Algo muy curioso que he visto.

Considerando el siguiente código:

for($i = 0; $i < 0.4; $i = $i + 0.1)
{
print "$i\n";
}

La salida es como se esperaba:

0
0.1
0.2
0.3

También con:

for($i = 0; $i < 0.7; $i = $i + 0.1)
{
print "$i\n";
}

Salida normal:

0
0.1
0.2
0.3
0.4
0.5
0.6

Ahora viene lo mágico, hacemos $i menor que ...

Hola a todos.

Mi pregunta es sencilla.

¿Perl sobre Windows o GNU/Linux?, respecto a aprendizaje.

Esto surge a raíz de que leí algunos mensajes anteriores en los que explorer pone esto:

Code: Seleccionar todo

Como me parece que todavía estás en Windows (¡qué locura!) supongo también que estarás usando el ActivePerl

http://perlenespanol.com/foro/ayuda-con-matrices-de-2-dimensiones-t3717.html

Pero no logro comprender la diferencia, tal vez la eficiencia en cada sistema sea mayor.

Espero y me aclaren la duda.

Hola.

Trato de duplicar un hash de arrays (%fichero1), porque tengo que recorrerlo dos veces haciendo shift() sobre los elementos de los arrays hasta que queda uno, y al final un delete() sobre la key.

El problema es que, como tengo que hacer esto dos veces sobre el mismo hash, pues se me han ocurrido dos opciones, ninguna de las cuales me funciona por motivos que desconozco.

El programa es extensísimo, así que a ver ...

¿Qué tal...? Me podrían ayudar con la función random()?... Encontrar un script... pero ¿cómo podría hacerle para que yo introduzca una lista de 88 números y me escogiera 5 al azar...?