Foro - Perl en Español

Hola a todos en el foro.

Estoy escribiendo un pequeño script para extraer/copiar bloques de texto de un archivo latex, y deseo agregarle opciones mediante Getopt::Long.

Mi idea es poder usar el script al estilo Linux script archivo pero me he topado con un pequeño dilema. Me explico: Al correr el script sobre un archivo deseo que acepte solo las extensiones .tex y .ltx; si el archivo no tiene extensión o es otra, dar ...

Saludos, Perl en Español, de nuevo por acá con una duda.

Tengo 4 tipos de archivos:

WEB13112015.xls ----------> programación diaria
WEB06062015R1_1201.xls ---> reprogramación diaria No.1
WEB07062015R2_0301.xls ---> reprogramación diaria No.2
WEB07062015R3_1101.xls ---> reprogramación diaria No.3
WEB23112015V1.xls --------> nueva versión de programación No.1
WEB23112015V2.xls --------> nueva versión de programación No.2
WEB23112015V3.xls --------> nueva versión de programación No.3
25_PDS20150614.xls -------> programación semanal
25_PDSREP20150614.xls ----> reprogramación semanal
Elaboraré un sistema para analizar los diferentes tipos de archivo y ...

Hola, tengo el siguiente formulario en HTML y JavaScript en mi servidor Apache y quería saber cómo hacer un registro desde Perl, pero nunca funciona el registro. Creo que es por lo de "onsubmit" en el <form>.

<form method='post' action='foro_autenticar.php' onSubmit="return noVaciosCampos (this);">
<input type=hidden value='nottrue' name=alfacode>

<input type='hidden' name='secforo' value='3'><input type='hidden' name='idenc' value='0'>
<tr>
<td align=right bgcolor="#FF9933"><b><font face="Arial, Helvetica, sans-serif" size="2">Autor:</font></b></td>
<td bgcolor="#CCCCCC"><font face="Arial, Helvetica, sans-serif" size="2"><input name='autor' type=text value='' size=20 maxlength="18"> ...

Amigos, tengo un archivo TXT desde el cual debo tomar los campos para luego armar otro archivo txt separados igualmente por tabulación.

Si bien he realizado la captura de otros archivos separados por ';' o '"' o '|' o lo que sea... pero por tabulación no sé cómo hacerlo. Favor, su ayuda.

El archivo es de esta forma:
Campo1 Campo2 Campo3 Campo4 Campo5 etc…
Campo1 Campo2 Campo3 Campo4 Campo5 etc…
Campo1 Campo2 Campo3 Campo4 Campo5 ...

Estimados: un gusto en saludarlos.

Mi duda es si se puede instalar ActiverPerl en un Windows Server 2003 sin necesidad de reiniciar la máquina, ya que como servidor tiene muchos procesos que no pueden detenerse.

Entonces, ¿existirá algún comando o modificar alguna variable de entorno o algo al respecto que sirva para no reiniciar Windows?

Leí por ahí que cerrando el explorer.exe sirve, pero no me sirvió.

Estaría muy agradecido por vuestra ayuda. Gracias.

:evil: Buenas a todos, llevo intentado entender un trozo de código (me estoy iniciando en Perl), y por más que busco sigo sin entenderlo.

El código es el siguiente:
for ( $i = 0; $i <= $contador; $i++ ) {
push @{ $xml->{alumno} },
{
nombre => [ $registro ],
fecha => [ $registro ],
};
}
XMLout( $xml, RootName => $curso, Outputfile ...

Buenas tardes.

Tengo que comparar un par de archivos de texto con la siguiente estructura:

Sexo;Estado;DNI;Nombre;Edad;Alias;Altura;Direccion;Hijos;Observaciones
Hombre;Soltero;11111111;Jose Aja Aja;50;pepe;2.00;calle 1;;Rubio
Mujer;Casada;22222222;Ana Aja Aje;65;anita;1.80;calle 3;2;Rubia
Mujer;Divorciada;33333333;Laura Asi Asa;38;laurita;1.70;calle 4;1;

En el archivo nuevo puede haber cambiado la edad o dirección de algún registro, por lo que en el resultado debo guardar tanto la línea del archivo viejo como la del nuevo. Si no ha cambiado nada, no guardo nada en el resultado.

La estrategia que he ...

Buenas, estimados perleros :D Tengo un gran dilema que me aqueja desde hace unos días :? (seguro para ustedes es algo muy fácil :lol: ).

Dentro de mi código tengo la necesidad de crear un archivo que contenga en su nombre espacios en blanco y se cree en función a ...

Buenas tardes con todos :D

Tengo un problema al extraer columnas con datos de un archivo plano. El archivo es el siguiente :
(1 row affected)
(1 row affected)
(1 row affected)
(1 row affected)
(1 row affected)

|deviceID |measuringObject|collectionEndTime |taskID |insertionTime |granularityPeriod|Time10 |row_index
|-----------|---------------|-------------------|-----------|-------------------|-----------------|-------------------|-----------
| 4722691|825 |2015/07/06 10:00:00| 168|2015/07/06 09:52:00| 60|2015/07/06 10:00:00| 933114
| 4722691|936 |2015/07/06 10:00:00| 168|2015/07/06 09:52:00| 60|2015/07/06 10:00:00| 933115
| 4722691|2417 |2015/07/06 ...

Hola a todos. Antes que nada, me presento: soy soasada y soy nuevo por estos lares, je,je.

Tengo experiencia con otros lenguajes de programación, como Java, C/C++ y PL/SQL.

Hace poco me he metido con Perl para aprenderlo como lenguaje "navaja suiza" para tareas repetitivas y pequeñas chapuzas de administración. El "quick-and-dirty" que Perl nos ofrece me viene de perlas.

El caso es que estoy haciendo un script que ejecuta otros scripts y compara resultados ...