diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2022-09-26 16:05:12 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2022-09-26 16:05:12 +0100 |
| commit | 2f2794ab149c8c76e32bbc757b2d9d358d377c65 (patch) | |
| tree | 0658b676cbee4758b8af86ce02b381ce4d7d727f | |
| parent | 5e5b7777c0bda5b10236ab2fb2f3e47851cb0b1b (diff) | |
| parent | 1868569ab1055812adf67f09af23e6f109930e14 (diff) | |
| download | perlweeklychallenge-club-2f2794ab149c8c76e32bbc757b2d9d358d377c65.tar.gz perlweeklychallenge-club-2f2794ab149c8c76e32bbc757b2d9d358d377c65.tar.bz2 perlweeklychallenge-club-2f2794ab149c8c76e32bbc757b2d9d358d377c65.zip | |
Merge pull request #6799 from kjetillll/challenge-184-kjetillll
https://theweeklychallenge.org/blog/perl-weekly-challenge-184/
| -rw-r--r-- | challenge-184/kjetillll/perl/ch-1.pl | 6 | ||||
| -rw-r--r-- | challenge-184/kjetillll/perl/ch-2.pl | 12 |
2 files changed, 18 insertions, 0 deletions
diff --git a/challenge-184/kjetillll/perl/ch-1.pl b/challenge-184/kjetillll/perl/ch-1.pl new file mode 100644 index 0000000000..1b157d8030 --- /dev/null +++ b/challenge-184/kjetillll/perl/ch-1.pl @@ -0,0 +1,6 @@ +#https://theweeklychallenge.org/blog/perl-weekly-challenge-184/ +#run like: perl ch-1.pl ab1234 cd5678 ef1342 +#outputs three lines: 001234 015678 021342 +use v5.10; +my $seq='00'; +say s/../$seq++/er for @ARGV; diff --git a/challenge-184/kjetillll/perl/ch-2.pl b/challenge-184/kjetillll/perl/ch-2.pl new file mode 100644 index 0000000000..754e7eafc6 --- /dev/null +++ b/challenge-184/kjetillll/perl/ch-2.pl @@ -0,0 +1,12 @@ +#https://theweeklychallenge.org/blog/perl-weekly-challenge-184/ +#run like: perl ch-2.pl '1 2' 'p q r' 's 3' '4 5 t' + + +my @inp = @ARGV ? @ARGV #input strings from command line + : ('1 2', 'p q r', 's 3', '4 5 t'); #else use example data + +my @out = map { //; [ grep @$_, map[ /$'/g ], @inp ] } + '\d', #one list of digit lists + '[a-z]'; #and one for letter lists + +use Data::Dumper; print Dumper( @out ); #view output data structure |