Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations gkittelson on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
-
associative array
i'm new to tcl and familiar with perl i prob where i have to count the number of phone by user example JOHN: 234-4534 JOHN: 234-1212 SARAH: 567-3434 SARAH: 646-1212 ALICE: 234-2342 if perl i can do while (<>) { $COUNTPHONE{$1}++ if /^(\S+): /; } how can i do the same thing in TCL THX
