Task 1 plperl

1 files changed, 22 insertions, 0 deletions

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;