Vibrating rectangles: Difference between revisions

Content added Content deleted

Inline

@@ Line 6: / Line 6: @@
 Using the core module <code>Time::HiRres</code> to get sub-second <tt>sleep</tt>
 {{trans|Perl 6}}
-<lang perl>%r = ('tl' => qw<┌>, 'tr' => qw<┐>, 'h' => qw<─>, 'v' => qw<│>, 'bl' => qw<└>, 'br' => qw<┘>);
+<lang perl>use utf8;
+binmode STDOUT, ":utf8";
+use Time::HiRes qw(sleep);
+%r = ('tl' => qw<┌>, 'tr' => qw<┐>, 'h' => qw<─>, 'v' => qw<│>, 'bl' => qw<└>, 'br' => qw<┘>);
 @colors = ("\e[1;31m", "\e[1;32m", "\e[1;33m", "\e[1;34m", "\e[1;35m", "\e[1;36m");