Task 1 plpgsql

1 files changed, 32 insertions, 0 deletions

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;