#!/usr/bin/env tclsh
# child script: simulate some lengthy operations
package require Tclx
lassign $argv id durationInSeconds
set durationInMiliseconds [expr {$durationInSeconds * 1000}]
puts " child #$id runs for $durationInSeconds seconds"
after $durationInMiliseconds
puts " child #$id ends"
Comments