diff options
| author | Luca Ferrari <fluca1978@gmail.com> | 2023-01-16 11:54:50 +0100 |
|---|---|---|
| committer | Luca Ferrari <fluca1978@gmail.com> | 2023-01-16 13:16:41 +0100 |
| commit | 07dbf3342db050323bf9d7d866bb64071bd27cb7 (patch) | |
| tree | e8242e651249a4d2225fe18de406c6517d393a3e | |
| parent | 0c2e9c4fd01398cca5d1a65a1456190615e7a8d3 (diff) | |
| download | perlweeklychallenge-club-07dbf3342db050323bf9d7d866bb64071bd27cb7.tar.gz perlweeklychallenge-club-07dbf3342db050323bf9d7d866bb64071bd27cb7.tar.bz2 perlweeklychallenge-club-07dbf3342db050323bf9d7d866bb64071bd27cb7.zip | |
Task 2 done plperl
| -rw-r--r-- | challenge-200/luca-ferrari/postgresql/ch-2.plperl | 3 | ||||
| -rw-r--r-- | challenge-200/luca-ferrari/postgresql/ch-2.sql | 16 |
2 files changed, 17 insertions, 2 deletions
diff --git a/challenge-200/luca-ferrari/postgresql/ch-2.plperl b/challenge-200/luca-ferrari/postgresql/ch-2.plperl index d436feaeee..d30bb62302 100644 --- a/challenge-200/luca-ferrari/postgresql/ch-2.plperl +++ b/challenge-200/luca-ferrari/postgresql/ch-2.plperl @@ -11,7 +11,6 @@ pwc200.task2_plperl( int ) RETURNS text AS $CODE$ - use List::MoreUtils qw/zip/; my ( $value ) = @_; my $lcd = [ @@ -119,4 +118,4 @@ AS $CODE$ return $display; $CODE$ -LANGUAGE plperlu; +LANGUAGE plperl; diff --git a/challenge-200/luca-ferrari/postgresql/ch-2.sql b/challenge-200/luca-ferrari/postgresql/ch-2.sql new file mode 100644 index 0000000000..0e07041c87 --- /dev/null +++ b/challenge-200/luca-ferrari/postgresql/ch-2.sql @@ -0,0 +1,16 @@ +-- +-- Perl Weekly Challenge 200 +-- Task 2 +-- +-- See <https://perlweeklychallenge.org/blog/perl-weekly-challenge-200/> +-- + +CREATE SCHEMA IF NOT EXISTS pwc200; + +CREATE OR REPLACE FUNCTION +pwc200.task2_plpgsql( v int ) +RETURNS text +AS $CODE$ + SELECT pwc200.task2_plperl( v ); +$CODE$ +LANGUAGE sql; |