diff options
| author | Lubos Kolouch <lubos@kolouch.net> | 2019-10-20 10:22:36 +0200 |
|---|---|---|
| committer | Lubos Kolouch <lubos@kolouch.net> | 2019-10-20 10:22:36 +0200 |
| commit | b48a664d70a358dbe1f17185ac82a424ee05a9d3 (patch) | |
| tree | cea1b7d542227d392e6764f6119225ea1d0ee7be /challenge-028 | |
| parent | 2c8e19c0abde7e62437ad68fafc1dbc4fe61700b (diff) | |
| download | perlweeklychallenge-club-b48a664d70a358dbe1f17185ac82a424ee05a9d3.tar.gz perlweeklychallenge-club-b48a664d70a358dbe1f17185ac82a424ee05a9d3.tar.bz2 perlweeklychallenge-club-b48a664d70a358dbe1f17185ac82a424ee05a9d3.zip | |
Challenge 30-1 LK
Diffstat (limited to 'challenge-028')
| -rw-r--r-- | challenge-028/lubos-kolouch/perl5/ch-2.pl | 38 |
1 files changed, 0 insertions, 38 deletions
diff --git a/challenge-028/lubos-kolouch/perl5/ch-2.pl b/challenge-028/lubos-kolouch/perl5/ch-2.pl deleted file mode 100644 index b7735db222..0000000000 --- a/challenge-028/lubos-kolouch/perl5/ch-2.pl +++ /dev/null @@ -1,38 +0,0 @@ -#!/usr/bin/perl -#=============================================================================== -# -# FILE: ch-2.pl -# -# USAGE: ./ch-2.pl -# -# DESCRIPTION: https://perlweeklychallenge.org/blog/perl-weekly-challenge-028/ -# -# Write a script to display Digital Clock. Feel free to be as creative as you can when displaying digits. We expect bare minimum something like “14:10:11”. -# -# OPTIONS: --- -# REQUIREMENTS: --- -# BUGS: --- -# NOTES: --- -# AUTHOR: Lubos Kolouch -# ORGANIZATION: -# VERSION: 1.0 -# CREATED: 09/30/2019 01:20:02 PM -# REVISION: --- -#=============================================================================== - -use strict; -use warnings; -use feature qw/say/; -use Acme::Cow; -use DateTime; - -my $secret = shift || 0; - -my $cow = new Acme::Cow; -my $dt=DateTime->now; - -$cow->say($dt->hms); - -# secret undocumented parameter to make the cow think! -$cow->think if $secret; -$cow->print(); |