Using perl Syntax Highlighting
#!/usr/bin/perl
print "Introduce un numero: ";
$n1=<STDIN>;
while ($n1 != 0) {
print "Introduce un numero: ";
$n1 = <STDIN>;
}
print "Introduce un numero: ";
$n1=<STDIN>;
while ($n1 != 0) {
print "Introduce un numero: ";
$n1 = <STDIN>;
}
Coloreado en 0.005 segundos, usando GeSHi 1.0.8.4
Si introduzco una letra o palabra, ya me termina el bucle sin teclear el 0.
Además eso no es todo yo quiero que termine al teclear una palabra. Concretamente 'exit'.
Using perl Syntax Highlighting
#!/usr/bin/perl
print "Introduce un numero: ";
$n1=<STDIN>;
while ($n1 != "exit") {
print "Introduce un numero: ";
$n1 = <STDIN>;
}
print "Introduce un numero: ";
$n1=<STDIN>;
while ($n1 != "exit") {
print "Introduce un numero: ";
$n1 = <STDIN>;
}
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
¡Pero no funciona!.