diff options
| -rw-r--r-- | challenge-190/luca-ferrari/postgresql/ch-1.plperl | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/challenge-190/luca-ferrari/postgresql/ch-1.plperl b/challenge-190/luca-ferrari/postgresql/ch-1.plperl new file mode 100644 index 0000000000..4c725c0c7e --- /dev/null +++ b/challenge-190/luca-ferrari/postgresql/ch-1.plperl @@ -0,0 +1,18 @@ +-- Perl Weekly Challenge 190 +-- Task 1 + +CREATE SCHEMA IF NOT EXISTS pwc190; + +CREATE OR REPLACE FUNCTION +pwc190.task1_plperl( text ) +RETURNS int +AS $CODE$ + my ( $word ) = @_; + elog( INFO, "Word $word "); + return 1 if ( $word =~ / ^ [A-Z] [a-z]+ $ /x + || $word =~ / ^ [a-z]+ $ /x + || $word =~ / ^ [A-Z]+ $ /x ); + + return 0; +$CODE$ +LANGUAGE plperl; |