Skip to content

Instantly share code, notes, and snippets.

@Code-Hex
Created July 13, 2015 04:30
Show Gist options
  • Save Code-Hex/aca7f70ba73389aa9d8f to your computer and use it in GitHub Desktop.
Save Code-Hex/aca7f70ba73389aa9d8f to your computer and use it in GitHub Desktop.
電光掲示板
#!/usr/bin/perl
use strict;
use warnings;
use utf8;
my $phrase = "My name is 404 ";
my @text = split("", $phrase);
my $array_num = @text;
my $temp;
$| = 1;
while (1) {
print "$phrase\r";
select undef, undef, undef, 0.1;
$temp = shift(@text);
push(@text, $temp);
$phrase = join("", @text);
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment