How to search a digit i.e process id in tcl and kill the process id

Question

I have tried to search process id i-e 6762 stored in a variable say buffer

nohup tcpdump -ni  eth0 -s0  2>&1          


        

Answer 1

Some of the problems with the code snippet above:

• missing line continuation characters
• missing closing quotes
• info exists should be on pid and not $pid

Try the snippet below and see if it helps:

foreach line [split $buffer "\n"] \
{
    if {[regexp {\[\d\]\s+(\d+)} $line junk pid]} \
    {
        break
    }
}

if {[info exists pid]} \
{
    puts "PID of nohup is $pid"
}