diff options
| author | E7-87-83 <fungcheokyin@gmail.com> | 2021-04-13 04:19:15 +0800 |
|---|---|---|
| committer | E7-87-83 <fungcheokyin@gmail.com> | 2021-04-13 04:19:15 +0800 |
| commit | 29f3373cc6a2c59a412c8d414c81c1f3ef725e46 (patch) | |
| tree | 066f1a6d53055b3e6aeaed842b0fb322a551f3fb /challenge-107 | |
| parent | 92b1db1ea2aa726d870c8975427cf74e430f5d05 (diff) | |
| download | perlweeklychallenge-club-29f3373cc6a2c59a412c8d414c81c1f3ef725e46.tar.gz perlweeklychallenge-club-29f3373cc6a2c59a412c8d414c81c1f3ef725e46.tar.bz2 perlweeklychallenge-club-29f3373cc6a2c59a412c8d414c81c1f3ef725e46.zip | |
remove an unnecessary line
Diffstat (limited to 'challenge-107')
| -rw-r--r-- | challenge-107/cheok-yin-fung/perl/ch-2.pl | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/challenge-107/cheok-yin-fung/perl/ch-2.pl b/challenge-107/cheok-yin-fung/perl/ch-2.pl index 188059fcf2..ad5f793788 100644 --- a/challenge-107/cheok-yin-fung/perl/ch-2.pl +++ b/challenge-107/cheok-yin-fung/perl/ch-2.pl @@ -15,8 +15,6 @@ my $program = $ARGV[0]; open(SCRIPT, $program) or die "Fail to read $program\n"; -my %hash; - while (my $line = <SCRIPT>) { while ( $line =~ /sub(\s+)(\&|\w)(\w*)/g ) { print $2.$3."\n"; |