Mark Dominus<p>Refurbishing this old program today. Just gotta replace 1611162000 with 1863622800.</p><p>#!/usr/bin/perl</p><p>my $remain = 1611162000 - time();<br>$remain > 0 or print("It's finally over.\n"), exit;</p><p>my @dur;<br>for (60, 60, 24, 100000) {<br> unshift @dur, $remain % $_;<br> $remain -= $dur[0];<br> $remain /= $_; <br>}</p><p>my @time = qw(day days hour hours minute minutes second seconds);<br>my <span class="h-card" translate="no"><a href="https://mathstodon.xyz/@s" class="u-url mention" rel="nofollow noopener noreferrer" target="_blank">@<span>s</span></a></span>;<br>for (0 .. $<a href="https://mathstodon.xyz/tags/dur" class="mention hashtag" rel="nofollow noopener noreferrer" target="_blank">#<span>dur</span></a>) {<br> my $n = $dur[$_] or next;<br> my $unit = $time[$_*2 + ($n != 1)];<br> $s[$_] = "$n $unit"; <br>}<br><span class="h-card" translate="no"><a href="https://mathstodon.xyz/@s" class="u-url mention" rel="nofollow noopener noreferrer" target="_blank">@<span>s</span></a></span> = grep defined, <span class="h-card" translate="no"><a href="https://mathstodon.xyz/@s" class="u-url mention" rel="nofollow noopener noreferrer" target="_blank">@<span>s</span></a></span>;</p><p>$s[-1] = "and $s[-1]" if <span class="h-card" translate="no"><a href="https://mathstodon.xyz/@s" class="u-url mention" rel="nofollow noopener noreferrer" target="_blank">@<span>s</span></a></span> > 2;<br>print join ", ", <span class="h-card" translate="no"><a href="https://mathstodon.xyz/@s" class="u-url mention" rel="nofollow noopener noreferrer" target="_blank">@<span>s</span></a></span>;<br>print "\n";</p>