diff options
| author | drbaggy <js5@sanger.ac.uk> | 2021-04-17 10:31:46 +0100 |
|---|---|---|
| committer | drbaggy <js5@sanger.ac.uk> | 2021-04-17 10:31:46 +0100 |
| commit | ff5f793de1ced8012a0bd75d5b8f747ee84f10eb (patch) | |
| tree | 19b759c3ed6ec0b0febd257e0bc61ac8e309d6c5 /challenge-108/james-smith | |
| parent | 9cc484c5ab48acfcb66568d76e30bbf5fd720108 (diff) | |
| download | perlweeklychallenge-club-ff5f793de1ced8012a0bd75d5b8f747ee84f10eb.tar.gz perlweeklychallenge-club-ff5f793de1ced8012a0bd75d5b8f747ee84f10eb.tar.bz2 perlweeklychallenge-club-ff5f793de1ced8012a0bd75d5b8f747ee84f10eb.zip | |
fix code + include code ref
Diffstat (limited to 'challenge-108/james-smith')
| -rw-r--r-- | challenge-108/james-smith/perl/ch-1.pl | 18 |
1 files 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)\((.*?)\)}; } |