From 6e11fc3964761736822416dd4dd0b178d91fc0cd Mon Sep 17 00:00:00 2001
From: Luca Ferrari <fluca1978@gmail.com>
Date: Mon, 26 Sep 2022 11:11:51 +0200
Subject: Task 1 plpgsql

---
 challenge-184/luca-ferrari/postgresql/ch-1.sql | 32 ++++++++++++++++++++++++++
 1 file changed, 32 insertions(+)
 create mode 100644 challenge-184/luca-ferrari/postgresql/ch-1.sql

diff --git a/challenge-184/luca-ferrari/postgresql/ch-1.sql b/challenge-184/luca-ferrari/postgresql/ch-1.sql
new file mode 100644
index 0000000000..5252ac33cf
--- /dev/null
+++ b/challenge-184/luca-ferrari/postgresql/ch-1.sql
@@ -0,0 +1,32 @@
+-- Perl Weekly Challenge 184
+-- Task 1
+
+CREATE SCHEMA IF NOT EXISTS pwc184;
+
+
+CREATE OR REPLACE FUNCTION
+pwc184.task1_plpgsql( strings text[] )
+RETURNS SETOF text
+AS $CODE$
+DECLARE
+        current_string text;
+        c int := 0;
+        pref text;
+BEGIN
+     FOREACH current_string IN ARRAY strings LOOP
+       IF c < 10 THEN
+          pref := '0' || c;
+       ELSE
+         pref := c::text;
+      END IF;
+       RETURN NEXT regexp_replace( current_string,
+                                   '^[a-z]{2}',
+                                   pref );
+       c := c + 1;
+     END LOOP;
+     RETURN;
+END
+
+
+$CODE$
+LANGUAGE plpgsql;
-- 
cgit