Version 1 of getPid

Updated 2001-12-07 14:29:08

Maps process i.d.'s to program names and program names to process i.d.'s, returning a list of matches. Unix only, but works with all flavors of ps

 proc getPid { { prog "" } } {

      set tmp {}

      set data [ exec ps -c ]
      set data [ split $data "\n" ]
      foreach line $data {
         set pid  [ lindex $line 0   ]
         set name [ lindex $line end ]
         if { [ regexp ^$name $prog ] || [ regexp ^$prog $name ] } {
            lappend tmp $pid
         }
         if { [ regexp ^$pid $prog  ] || [ regexp ^$prog $pid  ] } {
            lappend tmp $name
         }   
      }
      set tmp [ lsort -dictionary $tmp ]   
      return $tmp
 } ;## PSE fecit

---

And a little app that uses it (sort of a generalised zillakilla):

 proc killZem { pids_or_names } {
      foreach item $pids_or_names {
         if { [ regexp {^[0-9]+$} $item pid ] } {
            catch { exec kill -TERM $pid }
            catch { exec kill -KILL $pid }
         } else {
            set pids [ getPid $item ]
            foreach pid $pids {
               if { [ regexp {[0-9]+} $pid ] } {
                  catch { exec kill -TERM $pid }
                  catch { exec kill -KILL $pid }
               }
            }
         }
      }
 }

---

The cgi.tcl extension includes a spiffy CGI script that uses this idea, wrapped up in a form to allow easy selection of pids to kill:

http://pitch.nist.gov/cgi-bin/cgi.tcl/kill.cgi

The script that processes the form is the same one that draws it, so click on the "See the Tcl script that create this page" to see the script.

---