diff options
| author | e78783 <fungcheokyin@gmail.com> | 2022-05-17 17:28:25 +0800 |
|---|---|---|
| committer | e78783 <fungcheokyin@gmail.com> | 2022-05-17 17:28:25 +0800 |
| commit | 1cf20f45072a719aa11a0f4a21f79f33f93d6124 (patch) | |
| tree | 1e7f31b74bf44e36fe775ab8311cd25d2654db89 | |
| parent | 8b554f562d36c27e8c3968cf181c889dc6a09a6b (diff) | |
| download | perlweeklychallenge-club-1cf20f45072a719aa11a0f4a21f79f33f93d6124.tar.gz perlweeklychallenge-club-1cf20f45072a719aa11a0f4a21f79f33f93d6124.tar.bz2 perlweeklychallenge-club-1cf20f45072a719aa11a0f4a21f79f33f93d6124.zip | |
prettier Task 1
| -rw-r--r-- | challenge-165/cheok-yin-fung/perl/ch-1.pl | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/challenge-165/cheok-yin-fung/perl/ch-1.pl b/challenge-165/cheok-yin-fung/perl/ch-1.pl index ec333aae85..a6fb13ad2c 100644 --- a/challenge-165/cheok-yin-fung/perl/ch-1.pl +++ b/challenge-165/cheok-yin-fung/perl/ch-1.pl @@ -6,10 +6,11 @@ use v5.24.0; use warnings; use SVG; +use ARGV::OrDATA; my $img = SVG->new; -while (<STDIN>) { +while (<>) { chomp; my @nums = split ",", $_; if (scalar @nums == 2) { @@ -40,3 +41,8 @@ sub new_line { print $img->xmlify(-namespace=>'svg'); + +__DATA__ +53,10 +53,10,23,30 +23,30 |