say $k(3)$u"HDD information"$u$k; say $k(12)$b\Filesystem$b$k $k(10)\Type$k \($k(13)$r$r\Used$k\/$k(6)$r$r\Size$k\); exec("df -hT --exclude-type=tmpfs | grep \/dev\/") { %info = $str.split("[ ]+", $1, r); %dev = %info[0]; %fstype = %info[1]; %size = %info[2]; %used = %info[3]; %p_used = $str.lefttofirst(%info[5], "%"); %proc = $progressbar($int(%p_used)); say $k(12)$b%dev$b$k, $k(10)%fstype$k \($k(13)$r$r%used$k\/$k(6)$r$r%size$k\) %proc; }