pasar minusculas a mayusculas
Publicado por zeus54 (1 intervención) el 25/07/2004 23:26:40
El programa que tengo hecho para hacer esto es:
#!C:perl/bin/perl.exe
while (1)
{
print "Escribe un nombre ";
chop ($nombre = <stdin>);
$var= $nombre
$var=~ tr/[a-z]/[A-Z];
print "Hola $var \r ";
}
Pero no me va bien,¿ me podriais decir que error o errores tengo y como solucionarlos?
Gracias
#!C:perl/bin/perl.exe
while (1)
{
print "Escribe un nombre ";
chop ($nombre = <stdin>);
$var= $nombre
$var=~ tr/[a-z]/[A-Z];
print "Hola $var \r ";
}
Pero no me va bien,¿ me podriais decir que error o errores tengo y como solucionarlos?
Gracias
Valora esta pregunta


0