会python真的可以为所欲为0(回)
350天前
这里还有人吗1(回)
535天前这里还有人吗0(回)
535天前
每天面对着电脑屏幕，敲打键盘。我所面对的并不只是代码，而是一种生活方式。0(回)
760天前到处都是羊，不想上班0(回)
840天前
鸽子
0(回)
844天前#!/usr/bin/perl |
use strict; |
use Term::Cap; |
$| = 1; |
my $i = 1; |
my $flag = 0; |
my $tcap = Term::Cap->Tgetent ( {TERM => undef, OSPEED => 1} ); |
$tcap->Tputs ( 'cl', 1, *STDOUT ); |
#clear screen |
while ( $i ) |
{ |
if ( $i > 50 || $flag == 1 ) |
{ |
$i --; |
$flag = 1; |
$flag = 0 if ( $i == 1 ); |
} |
else |
{ |
$i ++; |
$flag = 0; |
} |
$tcap->Tgoto ( 'cm', $i, 15, *STDOUT ); |
#move cursor |
print " welcome to chinaunix! "; |
select ( undef, undef, undef, 0.02 ); |
} |
exit 0; |
Term::Cap 终端控制模块。 |
代码效果：一个左右移动的字串 "welcome to chinaunix! " ：） |
by: 发表于：2017-09-12 14:53:37 顶(0) | 踩(0) 回复
？？
回复评论