test perl

02_perl/pregunta.pl

@@ -0,0 +1,28 @@
+#!/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";
+    }
+}