The moon-phase is cool. Personally I don't like the clock version.
Some more variations to play with:
use 5.18.1;
use warnings;
use Time::HiRes "usleep";
binmode STDOUT, ":encoding(utf-8)";
$| = 1;
for ([ 0x1f55b, 0x1f567, 0x1f550, 0x1f55c, 0x1f551, 0x1f55d, 0x1f552,
+0x1f55e,
0x1f553, 0x1f55f, 0x1f554, 0x1f560, 0x1f555, 0x1f561, 0x1f556,
+0x1f562,
0x1f557, 0x1f563, 0x1f558, 0x1f564, 0x1f559, 0x1f565, 0x1f55a,
+0x1f566 ],
[ 0x1f311 .. 0x1f318 ],
[ 20, 0x2581..0x2588, 0x2588 .. 0x258f ],
[ 0x2596, 0x2598, 0x259d, 0x2597
+],
[ 0x2596, 0x258c, 0x2598, 0x2580, 0x259d, 0x2590, 0x2597, 0x2584
+],
[ 0x259c, 0x259f, 0x2599, 0x259b ],
[ 0x2b14, 0x25e8, 0x25ea, 0x2b13, 0x2b15, 0x25e7, 0x25e9, 0x2b12
+],
[ 0x25f1, 0x25f0, 0x25f3, 0x25f2 ],
[ 0x25d3, 0x25d1, 0x25d2, 0x25d0 ],
[ 0x25f5, 0x25f4, 0x25f7, 0x25f6 ],
[ 0x2b63, 0x2b69, 0x2b64, 0x2b66, 0x2b61, 0x2b67, 0x2b62, 0x2b68
+],
) {
my @chars = map { chr } @$_;
for (0 .. 50) {
print " ", $chars[$_ % @chars], "\r";
usleep 250_000;
}
print "\n";
}
Enjoy, Have FUN! H.Merijn