From ff5f793de1ced8012a0bd75d5b8f747ee84f10eb Mon Sep 17 00:00:00 2001 From: drbaggy Date: Sat, 17 Apr 2021 10:31:46 +0100 Subject: fix code + include code ref --- challenge-108/james-smith/perl/ch-1.pl | 18 ++++++++++-------- 1 file changed, 10 insertions(+), 8 deletions(-) diff --git a/challenge-108/james-smith/perl/ch-1.pl b/challenge-108/james-smith/perl/ch-1.pl index 8aa29eb291..a1da7ed3ad 100644 --- a/challenge-108/james-smith/perl/ch-1.pl +++ b/challenge-108/james-smith/perl/ch-1.pl @@ -9,16 +9,18 @@ use Test::More; my $scalar = 1; my @array = (1); my %hash = (1=>1); -my $arrayref = \@array; -my $hashref = \%hash; -my $scalarref = \$scalar; +my $code = sub {my$x=1;}; -say "Scalar ", get_loc( \$scalar ); -say "Scalarref ", get_loc( \$scalarref ); -say "Array ", get_loc( \@array ); -say "Arrayref ", get_loc( \$arrayref ); +say''; +say 'Type Ref type Address'; +say '------- ---------- ----------------'; +printf "Scalar %-8s %s\n", get_loc( \$scalar ); +printf "Array %-8s %s\n", get_loc( \@array ); +printf "Hash %-8s %s\n", get_loc( \%hash ); +printf "Sub %-8s %s\n", get_loc( $code ); +say''; sub get_loc { - return $_[0] =~ s{(?:.*\(|\))}{}rg; + return $_[0] =~ m{(REF|ARRAY|HASH|SCALAR|CODE)\((.*?)\)}; } -- cgit