From 88efacf3ed9202468cdc5156dd7bd1b2efdf68cf Mon Sep 17 00:00:00 2001 From: Mohammad S Anwar Date: Mon, 1 Apr 2019 00:37:12 +0100 Subject: - Correct member name. --- challenge-001/kian-mang-ang/perl5/ch-1.pl | 8 -------- challenge-001/kian-mang-ang/perl5/ch-2.sh | 2 -- challenge-001/kian-meng-ang/perl5/ch-1.pl | 8 ++++++++ challenge-001/kian-meng-ang/perl5/ch-2.sh | 2 ++ 4 files changed, 10 insertions(+), 10 deletions(-) delete mode 100644 challenge-001/kian-mang-ang/perl5/ch-1.pl delete mode 100644 challenge-001/kian-mang-ang/perl5/ch-2.sh create mode 100644 challenge-001/kian-meng-ang/perl5/ch-1.pl create mode 100644 challenge-001/kian-meng-ang/perl5/ch-2.sh (limited to 'challenge-001') diff --git a/challenge-001/kian-mang-ang/perl5/ch-1.pl b/challenge-001/kian-mang-ang/perl5/ch-1.pl deleted file mode 100644 index d2c0f825b4..0000000000 --- a/challenge-001/kian-mang-ang/perl5/ch-1.pl +++ /dev/null @@ -1,8 +0,0 @@ -use strict; -use warnings; - -my $string = 'Perl Weekly Challenge'; -my $e_count = $string =~ tr/e/E/; - -print "New replaced string: ", $string, "\n"; -print "Number of times 'e' character found: ", $e_count, "\n"; diff --git a/challenge-001/kian-mang-ang/perl5/ch-2.sh b/challenge-001/kian-mang-ang/perl5/ch-2.sh deleted file mode 100644 index a2567ea76f..0000000000 --- a/challenge-001/kian-mang-ang/perl5/ch-2.sh +++ /dev/null @@ -1,2 +0,0 @@ -perl -e 'print "$_ " x ($_ % 3 != 0 && $_ % 5 != 0), "Fizz" x ($_ % 3 == 0), "Buzz" x ($_ % 5 == 0), "\n" for (1 .. 20);' - diff --git a/challenge-001/kian-meng-ang/perl5/ch-1.pl b/challenge-001/kian-meng-ang/perl5/ch-1.pl new file mode 100644 index 0000000000..d2c0f825b4 --- /dev/null +++ b/challenge-001/kian-meng-ang/perl5/ch-1.pl @@ -0,0 +1,8 @@ +use strict; +use warnings; + +my $string = 'Perl Weekly Challenge'; +my $e_count = $string =~ tr/e/E/; + +print "New replaced string: ", $string, "\n"; +print "Number of times 'e' character found: ", $e_count, "\n"; diff --git a/challenge-001/kian-meng-ang/perl5/ch-2.sh b/challenge-001/kian-meng-ang/perl5/ch-2.sh new file mode 100644 index 0000000000..a2567ea76f --- /dev/null +++ b/challenge-001/kian-meng-ang/perl5/ch-2.sh @@ -0,0 +1,2 @@ +perl -e 'print "$_ " x ($_ % 3 != 0 && $_ % 5 != 0), "Fizz" x ($_ % 3 == 0), "Buzz" x ($_ % 5 == 0), "\n" for (1 .. 20);' + -- cgit