Foro - Perl en Español

Hola a todos:

Si tengo un valor en la variable $miliseg = 66200 (66,200 s) ¿cómo puedo hacer para pasar a este formato: 01:06,200 (min:s)?

Si hago, para obtener la cantidad de minutos: $min = $miliseg / 60000, obtengo una cifra con decimales, y solo me interesaría quedarme con la parte de la izquierda de la cifra (que no me acuerdo cómo se llama...). El resto lo podría hacer con $s = ($miliseg % 60000) ...

Hola. ¿Cómo están? He creado un script de conexión FTP que funcionaba perfectamente y desde ayer me está dando los siguientes errores:

Global symbol "$arch_local" requires explicit package name at huawei.pl line 5.
Global symbol "$puerto" requires explicit package name at huawei.pl line 6.
Global symbol "$source" requires explicit package name at huawei.pl line 7.
Global symbol "$username" requires explicit package name at huawei.pl line 8.
Global symbol "$passwd" requires explicit package name at ...

Hola a todos,

Mi pregunta es bastante basica asi que supongo que podréis echarme un cable rápidamente.

Lo que estoy intentando es simplemente cambiar de directorio; dicho de otra forma:
- estoy en DIR1
- ejecuto un miniscript desde dicho directorio que me haga cambiar al directorio DIR2
- finaliza el script y todavía sigo en DIR1 (me refiero al shell), cuando en realidad quisiera estar en DIR2 (he ahí mi problema...)

Para ello, he ...

El plazo de inscripción termina el 7 de mayo.

http://cevug.ugr.es/perl/

En una empresa en la que pensaba laborar como programador en PHP me pidieron lo siguiente:

Correct the preg shown in the form so that the news links and titles of main stories on http://www.eltiempo.com are found. To help you a bit, a preg is given that matches any url on the page. However, it's not correct yet, because it matches too much.
Preg:

Code: Seleccionar todo

%"([^\"]*)"%is

Bueno, en sí ellos ...

Al hacer varios require en una nueva librería de mi proyecto no sé si ya se han incluido en otros requires a los que estoy llamando. ¿Qué puedo usar para que los require no se vuelva a incluir? En C o C++ esto se controla con los #includes y con los #defined, ¿cómo lo hago en Perl?

Hola,

Tengo una consulta sobre cómo puedo deshabilitar el campo de texto en un formulario de manera que el usuario no cambie su información. Por ejemplo, en HTML se agrega al final del <input type=textfield ... DISABLED> y el usuario solo verá el contenido pero no lo puede modificar.

¿Alguien puede decirme cómo hago eso mismo en Perl usando la estructura de declaración de un:

$html = $query->newInput (
-regx => $characterset,
-intype => 'textfield', ...

Hola nuevamente.

¿Alguien podría ayudarme a entender este pedazo de código?

En especial yo necesito imprimir los valores de los atributos por separado... y no logro entender dónde él hace la operación para que se llene el valor.

## additional attribute handling ##

my @additional_attr = ();
my @additionalAttributes = getRequiredList('ADDITIONAL_REQUEST_ATTRIBUTES');
my @additionalAttributesStringType = getRequiredList('ADDITIONAL_REQUEST_ATTRIBUTES_STRING_TYPE');
my @additionalAttributesDisplayValue = getRequiredList('ADDITIONAL_ATTRIBUTES_DISPLAY_VALUE');

my $counter = 0;
foreach my $attribute (@additionalAttributes)
{
## determine the attribute
my $attVar;
if($additionalAttributesDisplayValue) ...

Hola a todos.
No sé cómo puedo recuperar los parámetros que le paso a un perl script.

Por ejemplo : hago "perl main.pl hola mundo"
En main.pl quiero guardar en una variable "hola" (primer parámetro) y en otra "mundo"(2º parámetro);

¿Solo se puede usar @_ para subrutinas, verdad?

Un saludo y gracias.

Hola a todos:

Tengo este código, que me crea un array (@laburtua) con los elementos no repetidos de otro array (@lerro_guzti_zat), y luego crea otro array (@azkena) ordenando los elementos de menor a mayor, según su número de líneas (se supone que ningún elemento tiene más de 30 líneas). Luego se imprime este último array, con un número de orden de aparición (1, 2, 3...).

Lo que me gustaría, y os pido ayuda, es cómo ...