From 345f4b5979521b5905cf91c460a1e6217e9f4b2f Mon Sep 17 00:00:00 2001
From: Luca Ferrari <fluca1978@gmail.com>
Date: Tue, 6 Dec 2022 08:05:11 +0100
Subject: Task 1 plperl done

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

diff --git a/challenge-194/luca-ferrari/postgresql/ch-1.plperl b/challenge-194/luca-ferrari/postgresql/ch-1.plperl
new file mode 100644
index 0000000000..62445dd0df
--- /dev/null
+++ b/challenge-194/luca-ferrari/postgresql/ch-1.plperl
@@ -0,0 +1,31 @@
+-- Perl Weekly Challenge 194
+-- Task 1
+
+CREATE SCHEMA IF NOT EXISTS pwc194;
+
+CREATE OR REPLACE FUNCTION
+pwc194.task1_plperl( text )
+RETURNS int
+AS $CODE$
+ my ($what) = @_;
+
+ if ( $what =~ / ^ ([\d?]) ([\d?]) : ([\d?]) ([\d?]) $ /x ) {
+    if ( $1 eq '?' ) {
+       return 9;
+    }
+    elsif ( $2 eq '?' ) {
+      return 3 if $1 == 2;
+      return 9;
+    }
+    elsif ( $3 eq '?' ) {
+      return 5;
+    }
+    else {
+      return 9;
+    }
+ }
+
+return undef;
+
+$CODE$
+LANGUAGE plperl;
-- 
cgit