From 7db4c07fb28c6518339b0c4b584f0fc4b99545aa Mon Sep 17 00:00:00 2001
From: Manuel Vergara <manuel@vergaracarmona.es>
Date: Thu, 16 Oct 2025 22:55:06 +0200
Subject: [PATCH] test perl

---
 02_perl/pregunta.pl | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)
 create mode 100644 02_perl/pregunta.pl

diff --git a/02_perl/pregunta.pl b/02_perl/pregunta.pl
new file mode 100644
index 0000000..282c3bd
--- /dev/null
+++ b/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";
+    }
+}