diff options
| author | k-mx <cppfero@gmail.com> | 2019-04-20 16:37:37 +0500 |
|---|---|---|
| committer | k-mx <cppfero@gmail.com> | 2019-04-20 16:37:37 +0500 |
| commit | c0d98a21595bf04a748c691c4df1ddcf270aa4db (patch) | |
| tree | 5a3ca8ff4709d1295e5808e35d876b29c92bfbc7 /challenge-004 | |
| parent | 97f61e450d9b4a0aadfe732eb5a2cf98061971a1 (diff) | |
| download | perlweeklychallenge-club-c0d98a21595bf04a748c691c4df1ddcf270aa4db.tar.gz perlweeklychallenge-club-c0d98a21595bf04a748c691c4df1ddcf270aa4db.tar.bz2 perlweeklychallenge-club-c0d98a21595bf04a748c691c4df1ddcf270aa4db.zip | |
Challenge 4 task 2 by Maxim Kolodyzhny
Diffstat (limited to 'challenge-004')
| -rw-r--r-- | challenge-004/maxim-kolodyazhny/perl5/ch-2.pl | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/challenge-004/maxim-kolodyazhny/perl5/ch-2.pl b/challenge-004/maxim-kolodyazhny/perl5/ch-2.pl new file mode 100644 index 0000000000..66b33753de --- /dev/null +++ b/challenge-004/maxim-kolodyazhny/perl5/ch-2.pl @@ -0,0 +1,19 @@ +#!/usr/bin/env perl + +use strict; +use warnings; + +# cat words | perl -p ./ch-2.pl foobar + +our $letters; + +BEGIN { + $letters = join '', @ARGV; + @ARGV = (); +} + +my $t = $letters; + +while ( /\w/g ) { + $t =~ s/$&//i or $_=''; +} |