perl -le 'sleep 1 and print "|" x (100 * `cat /proc/loadavg | cut -d " " -f1`) while 1'↑/proc/loadavgを見ればOK while :;do sleep 1; cat /proc/loadavg | cut -d " " -f1 | perl -nle 'print q{|}x($_*100)';done;↑こちらの場合は毎回perlを呼び出し…