From 74e6d81b2e785bd2f7dd4398ea5e2733618ac4b3 Mon Sep 17 00:00:00 2001 From: Matthew Neleigh Date: Wed, 5 Jun 2024 13:02:18 -0400 Subject: modified: challenge-272/mattneleigh/perl/ch-1.pl --- challenge-272/mattneleigh/perl/ch-1.pl | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/challenge-272/mattneleigh/perl/ch-1.pl b/challenge-272/mattneleigh/perl/ch-1.pl index 92f66a75ec..9679ffc576 100755 --- a/challenge-272/mattneleigh/perl/ch-1.pl +++ b/challenge-272/mattneleigh/perl/ch-1.pl @@ -18,7 +18,7 @@ foreach my $address (@addresses){ printf( "Input: \$ip = \"%s\"\nOutput: \"%s\"\n\n", $address, - defranged_address_from_ip($address) + defanged_address_from_ip($address) ); } @@ -30,14 +30,14 @@ exit(0); ################################################################################ -# Produce a defranged version of an IPv4 address- that is to say, one in which +# Produce a defanged version of an IPv4 address- that is to say, one in which # every '.' is replaced with '[.]' # Takes one argument: # * A string that contains an IPv4 address (e.g. "1.1.1.1") -# Returnx: -# * The defranged IP address (e.g. "1[.]1[.]1[.]1") +# Returns: +# * The defanged IP address (e.g. "1[.]1[.]1[.]1") ################################################################################ -sub defranged_address_from_ip{ +sub defanged_address_from_ip{ my $addr = shift(); # Just substitute every period for a bracketed -- cgit