diff options
| -rwxr-xr-x | challenge-071/mohammad-anwar/perl/ch-2.pl | 5 | ||||
| -rwxr-xr-x | challenge-071/mohammad-anwar/perl/ch-2a.pl | 3 |
2 files changed, 8 insertions, 0 deletions
diff --git a/challenge-071/mohammad-anwar/perl/ch-2.pl b/challenge-071/mohammad-anwar/perl/ch-2.pl index 335b0d12f5..9147e3ad90 100755 --- a/challenge-071/mohammad-anwar/perl/ch-2.pl +++ b/challenge-071/mohammad-anwar/perl/ch-2.pl @@ -18,6 +18,9 @@ has p => (is => 'rw'); sub trim { my ($self, $position) = @_; + die "ERROR: Invalid position [$position].\n" + unless ($position =~ /^\d+$/); + my $tail = $self; my $count = 1; my $node; @@ -93,5 +96,7 @@ sub create_linked_list { $tail = $node; } + print $node->show, "\n"; + return $node; } diff --git a/challenge-071/mohammad-anwar/perl/ch-2a.pl b/challenge-071/mohammad-anwar/perl/ch-2a.pl index 2d8158220b..eaac007bd4 100755 --- a/challenge-071/mohammad-anwar/perl/ch-2a.pl +++ b/challenge-071/mohammad-anwar/perl/ch-2a.pl @@ -18,6 +18,9 @@ has p => (is => 'rw'); sub trim { my ($self, $position) = @_; + die "ERROR: Invalid position [$position].\n" + unless ($position =~ /^\d+$/); + my $tail = $self; my $count = 1; my $node; |