diff options
| author | Adam Russell <ac.russell@live.com> | 2021-04-18 10:20:38 -0400 |
|---|---|---|
| committer | Adam Russell <ac.russell@live.com> | 2021-04-18 10:20:38 -0400 |
| commit | 920c84164ce468c7fb5e6c7efc208160adcf5404 (patch) | |
| tree | fd0881a0c312729ab764f4f6f1e834e6336f31e4 | |
| parent | 039b4a6b38827a8d441196a7abfab0a4a788a242 (diff) | |
| download | perlweeklychallenge-club-920c84164ce468c7fb5e6c7efc208160adcf5404.tar.gz perlweeklychallenge-club-920c84164ce468c7fb5e6c7efc208160adcf5404.tar.bz2 perlweeklychallenge-club-920c84164ce468c7fb5e6c7efc208160adcf5404.zip | |
Perl solutions to challenge 108.
| -rw-r--r-- | challenge-108/adam-russell/perl/ch-1.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/challenge-108/adam-russell/perl/ch-1.pl b/challenge-108/adam-russell/perl/ch-1.pl index 845cf74c19..ccf434f002 100644 --- a/challenge-108/adam-russell/perl/ch-1.pl +++ b/challenge-108/adam-russell/perl/ch-1.pl @@ -14,11 +14,11 @@ my $stderr = capture_stderr { $stderr =~ m/at\s(0x.*\n).*/; $address = $1; chomp($address); -print $address . "\n"; +print "Address of constant A: $address\n"; $stderr = capture_stderr { Dump($a) }; $stderr =~ m/at\s(0x.*\n).*/; $address = $1; chomp($address); -print $address . "\n"; +print "Address of \$a: $address\n"; |