diff options
| author | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2019-04-03 19:55:34 +0100 |
|---|---|---|
| committer | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2019-04-03 19:55:34 +0100 |
| commit | 2298f27384b3093cee40eb6ec4846df47a7e5385 (patch) | |
| tree | ae9a92947a07446397dd4cbfef4634259a2ba5e0 | |
| parent | 58d62224aa01b622eda8662cc30f007efac71167 (diff) | |
| download | perlweeklychallenge-club-2298f27384b3093cee40eb6ec4846df47a7e5385.tar.gz perlweeklychallenge-club-2298f27384b3093cee40eb6ec4846df47a7e5385.tar.bz2 perlweeklychallenge-club-2298f27384b3093cee40eb6ec4846df47a7e5385.zip | |
- Added solution by "Fred Zinn".
| -rw-r--r-- | challenge-002/fred-zinn/perl5/ch-1.pl | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/challenge-002/fred-zinn/perl5/ch-1.pl b/challenge-002/fred-zinn/perl5/ch-1.pl new file mode 100644 index 0000000000..e9327bac42 --- /dev/null +++ b/challenge-002/fred-zinn/perl5/ch-1.pl @@ -0,0 +1,7 @@ +@a1= ( "00123", "-00123", "123" ); +foreach $nr (@a1) { + if (substr($nr,0,1) == '0') { $nr =~ s/^0*//; } + print "($nr)\n"; +} + + |