diff options
Diffstat (limited to 'challenge-273')
| -rw-r--r-- | challenge-273/iangoodnight/perl/Task1.pm (renamed from challenge-273/iangoodnight/perl/task1.pm) | 0 | ||||
| -rw-r--r-- | challenge-273/iangoodnight/perl/ch-1.sh | 1 | ||||
| -rw-r--r-- | challenge-273/iangoodnight/perl/ch-2.sh | 1 | ||||
| -rw-r--r-- | challenge-273/robert-dicicco/perl/ch-1.pl | 52 |
4 files changed, 54 insertions, 0 deletions
diff --git a/challenge-273/iangoodnight/perl/task1.pm b/challenge-273/iangoodnight/perl/Task1.pm index 645852ce09..645852ce09 100644 --- a/challenge-273/iangoodnight/perl/task1.pm +++ b/challenge-273/iangoodnight/perl/Task1.pm diff --git a/challenge-273/iangoodnight/perl/ch-1.sh b/challenge-273/iangoodnight/perl/ch-1.sh new file mode 100644 index 0000000000..1738851579 --- /dev/null +++ b/challenge-273/iangoodnight/perl/ch-1.sh @@ -0,0 +1 @@ +perl -I. t/task1.t diff --git a/challenge-273/iangoodnight/perl/ch-2.sh b/challenge-273/iangoodnight/perl/ch-2.sh new file mode 100644 index 0000000000..81b77e050f --- /dev/null +++ b/challenge-273/iangoodnight/perl/ch-2.sh @@ -0,0 +1 @@ +perl -I. t/task2.t diff --git a/challenge-273/robert-dicicco/perl/ch-1.pl b/challenge-273/robert-dicicco/perl/ch-1.pl new file mode 100644 index 0000000000..9765f0e6f8 --- /dev/null +++ b/challenge-273/robert-dicicco/perl/ch-1.pl @@ -0,0 +1,52 @@ +#!/usr/bin/env perl +=begin comment +----------------------------------------- +AUTHOR: Robert DiCicco +DATE : 2024-06-15 +Challenge 273 Percentage of Character ( Perl ) +----------------------------------------- +=cut +use v5.38; +use strict; +use warnings; +use Math::Round; + +sub CharPC { + my $wd = shift; + my $ch = shift; + my $ln = length($wd); + my $count = length( $wd =~ s/[^\Q$ch\E]//rg ); + say nearest(1,(($count / $ln ) * 100)); + +} +my $number_args = $#ARGV + 1; +if ($number_args != 2) { + print "Wrong entry. Please enter your full name.\n"; + exit; +} +my ($str, $char) = @ARGV; +CharPC($str, $char);; + +=begin comment +SAMPLE OUTPUT +---------------------------------------------------------- +perl PcofChar.pl perl e +25 + +perl PcofChar.pl java a +50 + +perl PcofChar.pl python m +0 + +perl PcofChar.pl ada a +67 + +perl PcofChar.pl ballerina l +22 + +perl PcofChar.pl analitik k +13 +---------------------------------------------------------- +=cut + |