diff options
| author | LapVeesh <rabbiveesh@gmail.com> | 2019-04-21 10:53:17 +0300 |
|---|---|---|
| committer | LapVeesh <rabbiveesh@gmail.com> | 2019-04-21 10:53:17 +0300 |
| commit | 2fe3ee92c9aeabfe53a38f6a7e7b97151e7f4e24 (patch) | |
| tree | 10606aaa77369b41bf3ebc5d520cb6ed7b62f65f /challenge-001 | |
| parent | dfbc57749888066b163267bda3801bd66ca5b1de (diff) | |
| download | perlweeklychallenge-club-2fe3ee92c9aeabfe53a38f6a7e7b97151e7f4e24.tar.gz perlweeklychallenge-club-2fe3ee92c9aeabfe53a38f6a7e7b97151e7f4e24.tar.bz2 perlweeklychallenge-club-2fe3ee92c9aeabfe53a38f6a7e7b97151e7f4e24.zip | |
Added answer to easy challenge for week 4
Diffstat (limited to 'challenge-001')
| -rw-r--r-- | challenge-001/veesh-goldman/perl5/ch-1.pl | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/challenge-001/veesh-goldman/perl5/ch-1.pl b/challenge-001/veesh-goldman/perl5/ch-1.pl index b0355e5715..aba2042d0a 100644 --- a/challenge-001/veesh-goldman/perl5/ch-1.pl +++ b/challenge-001/veesh-goldman/perl5/ch-1.pl @@ -3,10 +3,9 @@ my $count; $count++ while $string =~ s/e/E/; print "$count -- $string\n\n"; -# throws error: Substitution replacement not terminated -#$_ = 'Perl Weekly Challenge'; -#$%++ while s/e/E; -#print "$% -- $_\n\n"; +$_ = 'Perl Weekly Challenge'; +$%++ while s/e/E/; +print "$% -- $_\n\n"; $_ = 'Perl Weekly Challenge'; print y/e/E/," -- $_\n\n"; |