scroller.pl

来自「WWVB receiver using AVR.」· PL 代码 · 共 17 行

#!/usr/bin/perl

# $Id: scroller.pl,v 1.4 2005/10/30 19:44:38 simimeie Exp $
# Clock Remote Control Scroller - scrolls a text on the LED display

use strict;
use Time::HiRes qw( usleep);

my $cmdline = "./clockrcon ntp-clock FICKEN32 1";
my $string = (" "x6).join(" ",@ARGV);
for (0 .. length($string)) {
	my $subs = substr($string, $_, 6);
#	print ("./clockrcon ntp-clock FICKEN32 1 $subs 6\n");
	system ("$cmdline \"$subs\" 4");
	usleep(166667);
}