From 42f07c6f62ea75e8ecabef9ad058f8b4a1590ee5 Mon Sep 17 00:00:00 2001
From: Luca Ferrari <fluca1978@gmail.com>
Date: Mon, 26 Sep 2022 10:24:46 +0200
Subject: Task 1 plperl

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

diff --git a/challenge-184/luca-ferrari/postgresql/ch-1.plperl b/challenge-184/luca-ferrari/postgresql/ch-1.plperl
new file mode 100644
index 0000000000..a47a35e5b9
--- /dev/null
+++ b/challenge-184/luca-ferrari/postgresql/ch-1.plperl
@@ -0,0 +1,22 @@
+-- Perl Weekly Challenge 184
+-- Task 1
+
+CREATE SCHEMA IF NOT EXISTS pwc184;
+
+CREATE OR REPLACE FUNCTION
+pwc184.task1_plperl( text[] )
+RETURNS SETOF text
+AS $CODE$
+
+my $counter = 0;
+for my $current_string ( @{$_[0]} ) {
+    next if $current_string !~ / ^ [a-z]{2} \d{4} $ /ix;
+    $counter = sprintf "%02d", $counter;
+    $current_string =~ s/ ^ [a-z]{2} /$counter/xi;
+    $counter++;
+    return_next( $current_string );
+}
+
+return undef();
+$CODE$
+LANGUAGE plperl;
-- 
cgit