diff options
| -rw-r--r-- | challenge-184/kueppo-wesley/Perl/ch-1.pl | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/challenge-184/kueppo-wesley/Perl/ch-1.pl b/challenge-184/kueppo-wesley/Perl/ch-1.pl new file mode 100644 index 0000000000..61c768f857 --- /dev/null +++ b/challenge-184/kueppo-wesley/Perl/ch-1.pl @@ -0,0 +1,13 @@ +#!/usr/bin/env perl + +use strict; +use warnings; + +use Test::More; + +my ( @list, $i ) = qw(ab1234 cd5678 ef1342); +s/^../sprintf "%02d", $i++/e foreach @list; + +is_deeply( [ @list ], [ qw(001234 015678 021342) ], "sequenced number?" ); + +done_testing( 1 ); |