sub waitp { # wait process and random sleep. # process sleeps while ??? seconds, not "msec". # # if you want to use "msec" unit, use "select". # same effect of 'sleep' while 250 msec is, # "select(undef, undef, undef, 0.25) ;". # but, can't use progress bar. my $base = 10000 ; # random sleep from 1 sec to $base/1000 sec. my $t = int ( rand ($base) / 1000 ) ; progbar (++$t) ; return 1 ; }
