• Publicidad

Salida de cadena en pantalla

¿Apenas comienzas con Perl? En este foro podrás encontrar y hacer preguntas básicas de Perl con respuestas aptas a tu nivel.

Salida de cadena en pantalla

Notapor visualfree » 2009-12-04 21:46 @948

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
  1. print "Ingresar Nombre:";
  2. $nombre=<stdin>;
  3. print "Ingrese año de nacimiento:";
  4. $ano=<stdin>;
  5. $edad=2009-$ano;
  6. print "Don:".$nombre."Su edad es:".$edad."\n";
Coloreado en 0.004 segundos, usando GeSHi 1.0.8.4

El resultado de eso es:
Sintáxis: [ Descargar ] [ Ocultar ]
Using text Syntax Highlighting
Don nombre
Su edad es edad
Coloreado en 0.000 segundos, usando GeSHi 1.0.8.4

y yo necesito que diga:
Sintáxis: [ Descargar ] [ Ocultar ]
Using text Syntax Highlighting
Don nombre Su edad es edad
Coloreado en 0.000 segundos, usando GeSHi 1.0.8.4

Saludos.
visualfree
Perlero nuevo
Perlero nuevo
 
Mensajes: 41
Registrado: 2009-11-19 03:01 @167

Publicidad

Re: Salida de cadena en pantalla

Notapor netsoul » 2009-12-04 23:43 @030

Hola.

Creo que no salió el carácter de nueva línea :). Una forma de quitarlo es con chop :

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
  1. print "Ingresar Nombre: ";
  2. $nombre=<stdin>;
  3. chop $nombre;
  4. print "Ingrese año de nacimiento: ";
  5. $ano=<stdin>;
  6. $edad=2009-$ano;
  7. print "Don $nombre. Su edad es $edad.\n";
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
With Perl
Imagination is more important than knowledge. Albert Einstein.
netsoul
Perlero nuevo
Perlero nuevo
 
Mensajes: 150
Registrado: 2008-05-04 01:11 @091

Re: Salida de cadena en pantalla

Notapor erv-Z » 2009-12-05 06:59 @332

chop() elimina el último carácter de la cadena.
El que deberías usar sería chomp(), que elimina el fin de línea.

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
  1. print "Ingresar Nombre: ";
  2. $nombre=<stdin>;
  3. chomp $nombre;
  4. print "Ingrese año de nacimiento: ";
  5. $ano=<stdin>;
  6. $edad=2009-$ano;
  7. print "Don $nombre. Su edad es $edad.\n";
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4


Salida:
Sintáxis: [ Descargar ] [ Ocultar ]
Using text Syntax Highlighting
$ perl a.pl
Ingresar Nombre: erv
Ingrese año de nacimiento: 1900
Don erv. Su edad es 109.
 
Coloreado en 0.000 segundos, usando GeSHi 1.0.8.4
erv-Z
Perlero nuevo
Perlero nuevo
 
Mensajes: 158
Registrado: 2009-07-25 13:00 @583


Volver a Básico

¿Quién está conectado?

Usuarios navegando por este Foro: Google [Bot] y 0 invitados