diff options
| -rw-r--r-- | challenge-190/luca-ferrari/postgresql/ch-2.plperl | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/challenge-190/luca-ferrari/postgresql/ch-2.plperl b/challenge-190/luca-ferrari/postgresql/ch-2.plperl new file mode 100644 index 0000000000..7cc37be286 --- /dev/null +++ b/challenge-190/luca-ferrari/postgresql/ch-2.plperl @@ -0,0 +1,19 @@ +-- Perl Weekly Challenge 190 +-- Task 2 + +CREATE SCHEMA IF NOT EXISTS pwc190; + +CREATE OR REPLACE FUNCTION +pwc190.task2_plperl( text ) +RETURNS text +AS $CODE$ + my ( $number ) = @_; + my @decoded; + my %decode_table = map { ( $_ + 1 ) => ( 'A' .. 'Z' )[ $_ ] } ( 0 .. 9 ); + for my $current ( split '', $number ) { + push @decoded, $decode_table{ $current }; + } + +return join( '', @decoded ); +$CODE$ +LANGUAGE plperl; |