egghelp/eggheads community

doh

2005-05-10T23:10:50-04:00

Thank you for your posts, the help is very appreciated.
and thank you gb, thats the third or forth time you've helped me.

Statistics: Posted by oioifatty — Tue May 10, 2005 11:10 pm

Major newbie help with IF statements

2005-05-10T22:30:05-04:00

you're overwriting your var every time there's a match, use append/lappend to append (doh) it to your var.

Statistics: Posted by greenbear — Tue May 10, 2005 10:30 pm

Major newbie help with IF statements

2005-05-10T21:25:10-04:00

Click here for full information regarding "if" statements.

Statistics: Posted by Alchera — Tue May 10, 2005 9:25 pm

Major newbie help with IF statements

2005-05-10T17:45:55-04:00

Hi, i've got a smal tcl code that reads the contents of a file for devices, eth0, eth1 etc...
the devs file contains all of the items in the list, but it only returns the last item that matches in the dev file, i know its something to do with the IF's, but i just can't get my head arounfd the correct layout. could any suggest the correct layout?

Code:

set devices "/proc/net/dev"set file [ open $devices r ]set data [read -nonewline $file]   close $fileset lines [split $data "\n"]foreach line $lines {   if [string match "*lo:*" $line] {      set lo lo      } else { set lo ""}    if [string match -noc "*eth0:*" $line] {      set eth0 eth0      } else { set eth0 ""}   if [string match -noc "*eth1:*" $line] {      set eth1 eth1      } else { set eth1 ""}   if [string match -noc "*ppp0:*" $line] {      set ppp0 ppp0      } else { set ppp0 ""}   if [string match -noc "*ppp1:*" $line] {      set ppp1 ppp1      } else { set ppp1 ""}}

Statistics: Posted by oioifatty — Tue May 10, 2005 5:45 pm