Foro - Perl en Español

Publicado: **2016-10-16 14:46 @657**

Al poner en mi código

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

open(...) or die("No se pudo abrir el archivo < archivo.txt, $!");
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

simplemente se cierra si quito el archivo de la carpeta.
Y cuando solo pongo $! en die es lo mismo. También he intentado poner || en lugar de 'or', pero da igual.

No sé si esa sea la estructura correcta. Estoy usando ActivePerl 5.20.

Publicado: **2016-10-16 15:01 @667**

¿Y qué es lo que quieres hacer, o qué es lo que quieres que pase?

Estás diciendo que abra el archivo, o que se muera el programa.

Publicado: **2016-10-16 15:03 @669**

Lo que quiero es que imprima el mensaje de que no se pudo abrir.

Publicado: **2016-10-16 15:22 @682**

En ese caso, cambia die() por warn().

warn() emite un mensaje por la salida estándar de error (que normalmente suele coincidir con la salida estándar).

Y el programa sigue en la siguiente sentencia.

Publicado: **2016-10-16 15:26 @684**

Otra duda con el sig. código:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use strict;
use warnings;
use FindBin;
use lib $FindBin::Bin;
use genNumeros;
 
my @palabra;
open (my $ARCHIVO, '<', "palabras.txt") 
      or warn ("No se encontro el archivo palabras.txt, $!");
while (my $palabra = <$ARCHIVO>) {
    chomp $palabra;             
 
    push @palabra, $palabra;   
}
close $ARCHIVO;
my $palabraAleatoria = $palabra[genNumeros::crearNumero()];
print"$palabraAleatoria";
<>;
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

El problema es que se cierra solo al ejecutar el .pl, uso perl -c y perl -wc y ambos escriben: syntax OK perl -V pone al final el '.'

Código del modulo:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

package genNumeros;
use strict;
use warnings;
use Math::Complex;
 
 
my $seed = time();
my $a = $seed / 5;
my $c = $seed - 7;
my $x = $seed;
my $m = sqrt($seed % 574) + $seed;
my $numAleatorio;
 
 
sub generadorMultiplicativo{
    $numAleatorio = ((($a*$x) + $c) % $m);
    $x = $numAleatorio;
}
my $letra;
my $residuo;
 
sub crearNumero{
for my $i(1.. 1){
generadorMultiplicativo();
         $residuo = $x/$m;
        
   if($residuo < 0.0384615384615385 ){
           $letra = 1;
   } 
   if($residuo > 0.0384615384615385 && $residuo < 0.076923076923077){
           $letra = 2;
   } 
   if($residuo > 0.076923076923077 && $residuo < 0.1153846153846154){
           $letra = 3;
   }
   if($residuo > 0.1153846153846154 && $residuo < 0.1538461538461538){
           $letra = 4;
   }
   if($residuo > 0.1538461538461538 && $residuo < 0.1923076923076923){
           $letra = 5;
   }
   if($residuo > 0.1923076923076923 && $residuo < 0.2307692307692308){
           $letra = 6;
   }
   if($residuo > 0.2307692307692308 && $residuo < 0.2692307692307692){
           $letra = 7;
   }
   if($residuo > 0.2692307692307692 && $residuo < 0.3076923076923077 ){
           $letra = 8;
   }
   if($residuo > 0.3076923076923077 && $residuo < 0.3461538461538462){
           $letra = 9;
   }
   if($residuo > 0.3461538461538462 && $residuo < 0.3846153846153846){
           $letra = 10;
   }
   if($residuo > 0.3846153846153846 && $residuo < 0.4230769230769231){
           $letra = 11;
   }
   if($residuo > 0.4230769230769231 && $residuo < 0.4615384615384615){
           $letra = 12;
   }
   if($residuo > 0.4615384615384615 && $residuo < 0.5){
           $letra = 13;
   }
   if($residuo > 0.4615384615384615 && $residuo < 0.5384615384615385){
           $letra = 14;
   }
   if($residuo > 0.5384615384615385 && $residuo < 0.5769230769230769){
           $letra = 15;
   }
   if($residuo > 0.5769230769230769 && $residuo < 0.6153846153846154){
           $letra = 16;
   }
   if($residuo > 0.6153846153846154 && $residuo < 0.6538461538461538){
           $letra = 17;
   }
   if($residuo > 0.6538461538461538 && $residuo < 0.6923076923076923){
           $letra = 18;
   }
   if($residuo > 0.6923076923076923 && $residuo < 0.7307692307692308){
           $letra = 19;
   }
   if($residuo > 0.7307692307692308 && $residuo < 0.7692307692307692){
           $letra = 20;
   }
   if($residuo > 0.7692307692307692 && $residuo < 0.8076923076923077){
           $letra = 21;
   }
   if($residuo > 0.8076923076923077 && $residuo < 0.8461538461538462){
           $letra = 22;
   }
   if($residuo > 0.8461538461538462 && $residuo < 0.8846153846153846){
           $letra = 23;
   }
   if($residuo > 0.8846153846153846 && $residuo < 0.9230769230769231){
           $letra = 24;
   }
   if($residuo > 0.9230769230769231 && $residuo < 0.9615384615384615){
           $letra = 25;
   }
   if($residuo > 0.9615384615384615 && $residuo < 1){
                   $letra = 26;
   }
   
     }
}
 
1;
 
 
Coloreado en 0.006 segundos,  usando GeSHi 1.0.8.4

No cambié '$letra' por '$numero' debido a que no quiero perder tanto tiempo ya que es un copy-paste

Publicado: **2016-10-17 05:42 @279**

No es posible que se cierre solo sin decir nada, ni siquiera un mensaje de error.

A mi me funciona, pero he hecho los siguientes cambios.

* He quitado el bucle for my $i (1..1), porque... no sirve para nada.

* He añadido un return $letra; al final de crearNumero(), para que se devuelva de forma correcta el número aleatorio elegido antes. Si no pones nada en una función, Perl devolverá el valor de la última instrucción ejecutada, que en tu código corresponde a la expresión booleana del último if(), o a la asignación $letra = 26, así que, en realidad, tu función solo está devolviendo dos valores: o 0 o 26. Colocando un return $letra, devolvemos el valor de la $letra calculada.

* El programa funciona si existe un archivo llamado palabras.txt, en el mismo directorio, y al menos tiene 27 palabras. Lo del 27 es porque, en la línea 16, genNumeros::crearNumero() nos devolverá un valor entre 0 y 26, incluidos (si hemos añadido el return, como se ha comentado). Si palabras.txt tiene más palabras, no serán seleccionadas nunca.

Publicado: **2016-10-18 18:36 @817**

Ya me aseguré de que el .txt tiene 27 palabras, añadí el return $letra, eliminé el for() inservible y sigue igual: se cierra solo, sin decir nada.

Publicado: **2016-10-19 03:39 @194**

Este es el código que tengo, y me funciona. Hay cosas que le he tenido que poner y que le faltan a tu código, como por ejemplo, la primera línea '#!...' en el programa. Quizás para tu sistema operativo sea importante.

Sintáxis: (palabras.txt) [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

vecinos1

discolo2

caro3    

caballo4

vecinos5

discolo6

caro7    

caballo8

compra9

fruta10 

pesada11

altramuz12

locura13

altramuz14

locura15

discolo16

caro17    

caballo18

compra19

fruta20

pesada21

altramuz22

locura23

altramuz24

locura25

altramuz26

locura27Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Sintáxis: (programa.pl) [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use strict;
use warnings;
use FindBin;
use lib "$FindBin::Bin";
use genNumeros;
 
my @palabras;
 
open (my $ARCHIVO, '<', "palabras.txt") 
      or die ("No se encontro el archivo palabras.txt, $!");
while (my $palabra = <$ARCHIVO>) {
    chomp $palabra;             
 
    push @palabras, $palabra;   
}
close $ARCHIVO;
 
print "Leidas ", scalar(@palabras), " palabras\n";
 
 
my $palabraAleatoria = $palabras[genNumeros::crearNumero()];
 
print "$palabraAleatoria\n";
 
<>;     # caso de Windows: esperamos la pulsación del usuario para cerrar la pantalla.
        # no es necesaria en otros S.O. o si lo ejecutamos en una ventana CMD de Windows.
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Sintáxis: (genNumeros.pm) [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

package genNumeros;
use strict;
use warnings;
 
my $seed = time();
my $a = $seed / 5;
my $c = $seed - 7;
my $x = $seed;
my $m = sqrt($seed % 574) + $seed;
my $numAleatorio;
 
 
sub generadorMultiplicativo{
    $numAleatorio = ((($a*$x) + $c) % $m);
 
    $x = $numAleatorio;
}
my $letra;
my $residuo;
 
sub crearNumero {
    generadorMultiplicativo();
 
    $residuo = $x / $m;                         # $residuo debería tener un valor entre 0 y 1
 
    return int($residuo * 27);                  # devuelve un valor entre 0 y 26 (27 números diferentes)
}
 
1;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Por otra parte... no sé qué procedimiento estás usando para obtener el número aleatorio, pero tiene cierta preferencia por unos pocos números...

Publicado: **2016-10-19 16:48 @742**

Yo, con los cambios hechos, al ejecutar y al salir la ventana, tengo que seleccionar una parte de la ventana, para que quede abierta, luego le doy a enter e imprime la parte de las palabras leídas, y si le quito ese pedazo de código, aparece: Undefined subroutine &genNumeros::crearNumero called at .... at line 17

Publicado: **2016-10-20 02:37 @151**

¡Qué cosas más raras! Es Windows, ¿verdad? ¿Qué versión?

Si no sale texto en la ventana hasta que pulsas la tecla de Entrar, quizás es que esa consola está manejando mal el búfer de salida.

Hay una forma de decirle a Perl a que no use el búfer de salida de caracteres hacia el exterior, y de esa manera, todos los textos salen de forma inmediata.

Tienes que colocar esta línea

$|=1;

en el programa, después de los 'use'.

Te recomiendo que, en Windows, arranques una ventana CMD (CMD.exe o de línea de comandos), y dentro de ella te posiciones dentro del directorio donde tienes tu programa, y lo ejecutas desde ahí, así: perl programa.pl Mira la quinta pantalla del primer mensaje de esta página.

El mensaje de error dice que has quitado la línea del 'use genNumeros' del programa.pl.

Foro - Perl en Español

Open or die

Open or die

Re: Open or die

Re: Open or die

Re: Open or die

Re: Open or die

Re: Open or die

Re: Open or die

Re: Open or die

Re: Open or die

Re: Open or die