You've already forked scripts-random
29 lines
598 B
Perl
29 lines
598 B
Perl
#!/usr/bin/perl
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
# Mostrar el nombre de usuario
|
|
print "Hola ", `whoami`;
|
|
|
|
# Bucle infinito
|
|
while (1) {
|
|
# Leer la respuesta del usuario
|
|
print "dime si o no (s/n) ";
|
|
my $respuesta = <STDIN>;
|
|
chomp($respuesta); # Eliminar el salto de línea
|
|
|
|
# Evaluar la respuesta
|
|
if ($respuesta =~ /^[sS]$/) {
|
|
print "La respuesta es sí\n";
|
|
last; # Salir del bucle
|
|
}
|
|
elsif ($respuesta =~ /^[nN]$/) {
|
|
print "La respuesta es No\n";
|
|
exit; # Salir del script
|
|
}
|
|
else {
|
|
print "Que me estas container\n";
|
|
}
|
|
}
|