電光掲示板

r.pl

#!/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);
}