diff options
| author | Jörg Sommrey <28217714+jo-37@users.noreply.github.com> | 2023-03-15 22:41:57 +0100 |
|---|---|---|
| committer | Jörg Sommrey <28217714+jo-37@users.noreply.github.com> | 2023-03-23 18:03:41 +0100 |
| commit | cd4218ca053714a7020c0b0b6a141488d6f7c533 (patch) | |
| tree | 7bd24be367a3e997fa44e5dfdde4f0b98854a5dc | |
| parent | 51839d5ae944b3fb4c880f825050e0317067b8e9 (diff) | |
| download | perlweeklychallenge-club-cd4218ca053714a7020c0b0b6a141488d6f7c533.tar.gz perlweeklychallenge-club-cd4218ca053714a7020c0b0b6a141488d6f7c533.tar.bz2 perlweeklychallenge-club-cd4218ca053714a7020c0b0b6a141488d6f7c533.zip | |
Challenge 018 task 1
| -rwxr-xr-x | challenge-018/jo-37/perl/ch-1.pl | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/challenge-018/jo-37/perl/ch-1.pl b/challenge-018/jo-37/perl/ch-1.pl new file mode 100755 index 0000000000..58ea080fe1 --- /dev/null +++ b/challenge-018/jo-37/perl/ch-1.pl @@ -0,0 +1,20 @@ +#!/usr/bin/perl + +use v5.16; +use warnings; +use String::LCSS_XS 'lcss'; + +die <<EOS unless @ARGV > 1; +usage: $0 STR1 STR2... + +STR1 STR2... + some strings + +EOS + + +main: { + my $longest = shift; + $longest = lcss($longest, shift) while @ARGV; + say $longest; +} |