Foro - Perl en Español

Hola a todos.

Sé que ésta puede parecer una pregunta tonta, pero es que por más que he buscado no he encontrado la respuesta.

$a = 15;
$b = 2;

$c = 15/2;

$c = 7.5;

¿Cómo hacer para obtener la división entera, es decir, ignorar la parte decimal y quedarme solo con el 7? He buscado en diversos foros y he encontrado cosas como "fix" o "round" pero que no consigo hacer que me ...

Hola a todos,

El caso es que tengo un array @files_to_be_restored que contiene una lista de nombre de ficheros:

@files_to_be_restored = (file1, file2, file3, ..., fileN);

Trabajando en multiproceso, tengo un número P de procesos que deben procesar dicha lista, pero cada proceso debe procesar únicamente los ficheros de la parte que le corresponde.

Es decir, supongamos que tengo 6 procesos. La lista @files_to_be_restored anterior debe ser repartida, y cada proceso debe trabajar únicamente sobre ...

¡Hola!
Aquí estoy de nuevo.
Se que la pregunta es un poco simple pero me gustaría saber si existe alguna función que indique si existe un elemento concreto dentro de un array o si para saber estoy tengo que realizar un bucle que explore todo el array.

Otro problema que tengo es que intento ejecutar esto:

Code: Seleccionar todo

my $valido=`echo $& | ispell -l -d spanish`;

para comprobar si $& está en el diccionario de español, pero ...

Hola a todos,

Existe alguna instrucción Perl que permita extraer una parte del array, es decir, de una posición inicial i a una posición final f?

Por ejemplo:

@array = ( "pepe", "jose", "miguel", "carlos", "juan","Antonio");

Usando dicha supuesta función (si existe):
@subarray = extraearray(@array,2,4);

Dicha función imaginaria (o no...) me devolvería el siguiente array ("miguel","carlos","juan")...

¿Alguien sabe si existe una forma de hacerlo o estoy obligado a implementar una función para ello?

Muchas gracias! ...

¡Hola a todos!
Tengo un problemilla, bueno en realidad son varios. Para extraer el último carácter de una cadena no puedo utilizar el operador porque no es un array y no quiero extraer el último carácter con $ultimo = chop($cadena) porque no quiero modificar la cadena, solo quiero saber cuál es el último carácter.

El otro problema es el siguiente:

Tengo una variable $texto en el que he introducido un archivo de texto ...

Hola:
Tengo un programa que solo corre en Windows, y quiero hacerlo correr (unas 300 veces) pero que solo se ejecute por 30 segundos. El programa en cuestión realiza un cálculo larguísimo, del cual solo necesito la primera salida, siempre disponible en ese tiempo. Pienso que si estuviese en Linux no hubiese problemas, utilizando el número del proceso y luego kill. ¿Alguna forma de hacer algo similar en Windows?
Un abrazo,

Lirsum

¡Hola a todos!

Tengo un script Perl con el siguiente código (no ha sido escrito por mi):

my $date = strftime "%Y%m%d-%k%M%S", localtime(time());
print "$date\n";

El caso es que cuando el script se ejecuta de madrugada (a las 05:07:09 de la madrugada), hay un problema pues obtengo en la salida lo siguiente:

Code: Seleccionar todo

20070510- 50709

Debo concatenar dicho $date al nombre de un fichero, pero debido al espacio que genera el %k cuando se calcula de ...

Tengo un archivo .pm en el que tengo definidas unas variables y en un archivo .pl quiero almacenar esa variable del archivo aquel en una variable local para el programa.

¿Cómo debo hacerlo?

pongo use paquete ;, pero luego ¿cómo lo hago ?

my %var = ???????

Gracias por la ayuda.

Hola a todos:

Estoy en un dilema que no es precisamente de Perl, pero como en eso es lo que programo espero me podáis ayudar. Tengo que resolver el siguiente problema: hallar todas las combinaciones posibles (pero sin permutaciones) de una matriz no regular. O sea, teniendo

Code: Seleccionar todo

S  V  V
T  A  L
H

Tengo que dar todas las combinaciones posibles, ejemplo :

Code: Seleccionar todo

SVV
SVL
TAV

y así sucesivamente. Claro que en este ejemplo es ...

Hola amigos.

Quiero ejecutar el comando DIR con las comillas ` y lo hago así:

$dirResults = `dir /ad /B C:\\Releases\\TEST\\2.1.1002\\rod*.`;

El problema es que cuando DIR no encuentra algo, manda a la pantalla
"File not Found" pero no lo manda a la variable....

Mi duda es cómo puedo hacer que este mensaje no me salga en la pantalla.

¡Gracias saludos a todos!