AI时代，找源码已成为过去式，纪念我过去的十年0(回)
75天前
还有人吗2(回)
93天前会python真的可以为所欲为0(回)
573天前
这里还有人吗2(回)
758天前这里还有人吗0(回)
758天前
每天面对着电脑屏幕，敲打键盘。我所面对的并不只是代码，而是一种生活方式。0(回)
983天前#----------------------------- |
use Term::ReadKey; |
( $wchar, $hchar, $wpixels, $hpixels ) = GetTerminalSize(); |
#----------------------------- |
use Term::ReadKey; |
( $width ) = GetTerminalSize(); |
die "You must have at least 10 characters" unless $width >= 10; |
$max = 0; |
foreach ( @values ) |
{ |
$max = $_ if $max < $_; |
} |
$ratio = ( $width-10 ) /$max; |
# chars per unit |
foreach ( @values ) |
{ |
printf ( "%8.1f %s\n", $_, "*" x ( $ratio*$_ ) ); |
} |
#----------------------------- |
