Asignación por teclado

Foros de discusión -> Básico

Sab Jun 07, 2008 8:44 am

el_eddy
Perlero Nuevo

Registrado: 06 Jun 2008
Mensajes: 2

Asignación por teclado

Bueno, me gustaría saber cómo hago para que el usuario puede asignar un valor a la variable, no sé si me explico bien, pero lo que digo es que se pueda hacer esto:

Python:

#fragmento de una calculadora basica que hize en python
if operacion == '+': #realiza operacion de suma
resultado = numeroA + numeroB
numeroA = float (raw_input('Tecle un numero : '))
numeroB = float (raw_input('Teclea otro numero: '))

En este código el usuario asigna el valor por medio del teclado a la variable numeroA y luego a la variable numeroB ¿Cómo hago esto en Perl?

Sab Jun 07, 2008 9:02 am

explorer
Moderador

Registrado: 24 Jul 2005
Mensajes: 4222
Ubicación: Valladolid, España

Bienvenido a los foros de Perl en Español, el_eddy.

Para leer del teclado, se suele usar el operador diamante (<>).

Algo así:

Perl:

if ( $operacion eq '+' ) {
$numeroA = ( print('Tecle un número : '), <> );
$numeroB = ( print('Teclea otro número:'); <> );
$resultado = $numeroA + $numeroB;
}

aunque es mejor escribirlo así:

Perl:

if ( $operacion eq '+' ) {
print 'Tecle un número : ';
$numeroA = <>;
print 'Teclea otro número:';
$numeroB = <>;
$resultado = $numeroA + $numeroB;
}

Sab Jun 07, 2008 10:48 am

el_eddy
Perlero Nuevo

Registrado: 06 Jun 2008
Mensajes: 2



Gracias por la ayuda.

	Foros de discusión -> Básico	Todas las horas son GMT - 6 Horas
Página 1 de 1