1: #!/usr/bin/tcl 2: 3: set joinchar [lindex $argv 0] 4: if {$joinchar==""} { set joinchar " " } 5: set fid [open /etc/passwd r] 6: while {![eof $fid]} { 7: gets $fid ln 8: set ln [split $ln :] 9: set users([lindex $ln 0]) [lindex $ln 2] 10: } 11: close $fid 12: foreach user [array name users] { 13: set uid $users($user) 14: if {$uid<=450 || $uid>=32767} { continue } 15: lappend userlist $user 16: } 17: puts [join $userlist $joinchar] |