Help for this page

Select Code to Download

Select or download this

#! perl -slw
use strict;
...
concat(int2str(count,1),result)
concat(bit2str(count,'10'B),result)
concat(int2str(count,1),bit2str(count,'10'B))

Select or download this

c:\test>249976
int2str(count,1) & result
...

int2str(count,1) & bit2str(count,'10'B)