Random numbers in TCL

[infi1nity]

I need to generate some random numbers everytime my TCL application is invoked and the value sent to the external system for some kind of auditing purpose. The format of the number must be integer. Is there any command within TCL to this. (The rand command gives random floating point numbers whereas I want some random numbers)

 

[Bong]

You don't say what range your integers must occupy. Assuming there is no constraint and remembering that in Tcl "everything is a string", consider:

% set a [expr rand()]
0.468741144738
% set b [string range $a 2 end]
468741144738
%

Or, if you prefer:

% set a [expr rand()]
0.468741144738
% set b [lindex [split $a .] 1]
468741144738
%

_________________
Bob Rashkin

 

[infi1nity]

Thanks for that, really useful.