diff options
| author | andrezgz <andrezgz@gmail.com> | 2019-09-05 20:05:47 -0300 |
|---|---|---|
| committer | andrezgz <andrezgz@gmail.com> | 2019-09-05 20:05:47 -0300 |
| commit | 62decd00f202639a773c3d2e5ed5d310663dfc24 (patch) | |
| tree | e26eac84e1fa2481d448fdb7ee361b4ff6213249 /challenge-024 | |
| parent | 73943946ec754bb4a46e64e411e018ce05ea38bd (diff) | |
| download | perlweeklychallenge-club-62decd00f202639a773c3d2e5ed5d310663dfc24.tar.gz perlweeklychallenge-club-62decd00f202639a773c3d2e5ed5d310663dfc24.tar.bz2 perlweeklychallenge-club-62decd00f202639a773c3d2e5ed5d310663dfc24.zip | |
challenge-024 ch-2 fix
Diffstat (limited to 'challenge-024')
| -rw-r--r-- | challenge-024/andrezgz/perl5/ch-2.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-024/andrezgz/perl5/ch-2.pl b/challenge-024/andrezgz/perl5/ch-2.pl index bfa208c451..49aa67a02a 100644 --- a/challenge-024/andrezgz/perl5/ch-2.pl +++ b/challenge-024/andrezgz/perl5/ch-2.pl @@ -35,7 +35,7 @@ print "\nSearch word: "; my $w = <>; chomp $w; if ( exists $index{lc $w} ) { - print "'$w' was found on ", join(',',keys $index{lc $w}) . "\n"; + print "'$w' was found on ", join(',',keys %{$index{lc $w}}) . "\n"; } else { print "'$w' wasn't found on any document\n"; |