elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Recuerda que debes registrarte en el foro para poder participar (preguntar y responder)


+  Foro de elhacker.net
|-+  Programación
| |-+  Scripting
| | |-+  Ayuda con un script perl:
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Ayuda con un script perl:  (Leído 1,266 veces)
0uts1de

Desconectado Desconectado

Mensajes: 8


Might take your diamonds but I'll steal your heart


Ver Perfil
Ayuda con un script perl:
« en: 13 Diciembre 2016, 18:41 pm »

Hola, os pido ayuda porque soy nuevo en perl e intentando hacer un codigo no funciona y no se porque, antes de empezar, gracias por leer esto, y si eso gracias por la ayuda!!  :)

Empezemos:

He intentado crear un codigo que te pregunta por 2 numeros de autentificación, para luego decirtelos junto a tu nombre, es muy sencillo pero era solo para practicar los "until", lo que lleva until dentro es para comprobar si es un numero, y es alli donde falla,ya que da igual si es numero o no que lo deja pasar, y como no se porque falla aqui estamos!, este es el codigo:
Código:
#!usr/local/bin/perl

print "\n" ;

print "recuerde los numeros que escriba, seran preguntados luego\n" ;

print "--------------------------------------\n" ;

print "introduzca sus numeros de identificación : " ;

$num1 = <STDIN> ;

chop $num1 ;

until ( $num1 = ~ /^[+-]?\d+$/ ) {

print "no es un numero,porfavor, escribe un numero:\n" ;

$num1 = <STDIN> ;

chop $num1 ;

}

print "perfecto, sigamos el proceso....\n" ;

print "ahora introduce otro: " ;

$num2 = <STDIN> ;

chop $num2 ;

until ( $num2 = ~ /^[+-]?\d+$/ ) {

print "no es un numero, porfavor escriba uno\n" ;

$num2 = <STDIN> ;

chop $num2 ;

}

print "perfecto, sige mas porfavor...\n" ;

print "introduce tu nombre: " ;

$nom = <STDIN> ;

chop $nom ;

print "vale, ahora reintroduzca sus numeros si estos eran validos, primero el primero que introdució:\n" ;

$num3 = <STDIN> ;

chop $num3 ;

print "ahora el segundo numero, porfavor" ;

$num4 = <STDIN> ;

chop $num4 ;

print "hola $nom , tus numeros identificativos son $num3 y $num4\n " ;

Gracias por la ayuda por adelantado!!!


« Última modificación: 13 Diciembre 2016, 19:24 pm por 0uts1de » En línea

if (you eq coment){
   print "gracias" ;
}
else {
print ":("  ;
}
Ocelot1994

Desconectado Desconectado

Mensajes: 40



Ver Perfil
Re: Ayuda con un script perl:
« Respuesta #1 en: 14 Diciembre 2016, 12:58 pm »

Hola outside
No se lo que introduciras en tu teclado , pero con el chop vas a borrar el último carácter de la cadena que le pase, acostumbrate a declarar las variables con la palabra reservada "my".

Y otra cosa la expresión regular la tienes mal, empieza haciendo una sencillita y luego vete añadiento mas casos para que te quede un expresión regular más completa,prueba algo así

Código
  1. my $num =<STDIN>;
  2.  
  3. until($num =~ [A-Z]/gi ){
  4. .......
  5. }
  6.  

Un saludo


En línea

0uts1de

Desconectado Desconectado

Mensajes: 8


Might take your diamonds but I'll steal your heart


Ver Perfil
Re: Ayuda con un script perl:
« Respuesta #2 en: 14 Diciembre 2016, 16:46 pm »

Hola outside
No se lo que introduciras en tu teclado , pero con el chop vas a borrar el último carácter de la cadena que le pase, acostumbrate a declarar las variables con la palabra reservada "my".

Y otra cosa la expresión regular la tienes mal, empieza haciendo una sencillita y luego vete añadiento mas casos para que te quede un expresión regular más completa,prueba algo así

Código
  1. my $num =<STDIN>;
  2.  
  3. until($num =~ [A-Z]/gi ){
  4. .......
  5. }
  6.  

Un saludo

Gracias por la respuesta Diego5, gracias a tu comentario he consegido que funcione, y el tema de las variables me servira para mas adelante, un saludo a ti tambien  :)
En línea

if (you eq coment){
   print "gracias" ;
}
else {
print ":("  ;
}
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Ayuda con script de Perl
Scripting
stres 0 2,545 Último mensaje 26 Mayo 2004, 07:15 am
por stres
ayuda con un script en perl
Scripting
cuenta.net 0 900 Último mensaje 31 Octubre 2011, 22:45 pm
por cuenta.net
SCRIPT PERL
Nivel Web
mendax 1 1,342 Último mensaje 6 Febrero 2015, 21:29 pm
por engel lex
AYUDA con Script para un plugin de perl!
Scripting
Kithai 1 1,220 Último mensaje 21 Noviembre 2016, 16:58 pm
por Ocelot1994
Ayuda con un script [PERL]
Scripting
0uts1de 4 1,666 Último mensaje 20 Enero 2017, 10:21 am
por 0uts1de
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines