egghelp/eggheads community

one more 'basic' question on this

2005-05-10T17:40:42-04:00

This should of been asked in the Script Help section NOT the FAQ section. Please dont post your script help questions in this section.

Statistics: Posted by ^DooM^ — Tue May 10, 2005 5:40 pm

another Question about file search

2005-05-10T17:21:50-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 "/devs"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:21 pm

one more 'basic' question on this

2005-05-10T14:26:01-04:00

that doesnt direclty relate to this topic, so keep it out of the faq section.

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

one more 'basic' question on this

2005-05-10T11:10:42-04:00

GREAT WORK
what about also some info on using eggHTTP.tcl to read "external" files?

Statistics: Posted by Thunderdome — Tue May 10, 2005 11:10 am

Thank you very much.

2005-05-09T17:58:21-04:00

Thank you for the response, it works a treat.

p.s. sorry gb if i caused offence with the pm.

Statistics: Posted by oioifatty — Mon May 09, 2005 5:58 pm

one more 'basic' question on this

2005-05-09T17:41:38-04:00

Code:

set fname "/iptab"set fp [open $fname "r"]set data [read -nonewline $fp]close $fpset lines [split $data "\n"]set linenum 0foreach line $lines { if [string match -noc "*iptables -A OUTPUT -o \$internet -p tcp*" $line] {  set lines [lreplace $lines $linenum $linenum]  set fp [open $fname "w"]  puts $fp [join $lines "\n"]   close $fp } incr linenum}

please don't send me any more private msg's.

Statistics: Posted by greenbear — Mon May 09, 2005 5:41 pm

one more 'basic' question on this

2005-05-09T12:26:42-04:00

Code:

if [string match "iptables -A OUTPUT -o \$internet -p tcp" $line] { # it's a match, delete..

yeah thats the thing i want to acheive, but just don't know how to go about the deletion part. i've been using the examples of how to open a file, extract the text, and delete specified numbered lines.

but what about a specified string of text?
example of my code:

Code:

set fname "/iptab"set fp [open $fname "r"]set data [read -nonewline $fp]close $fpforeach lines [split $data "\n"] {   if {[string match "iptables -A OUTPUT -o \$internet -p tcp" $line]} {   set line_to_delete $line}#so line_to_delete contains the string i want to delete, but where from here??}set fp [open $fname w]puts $fp [join $lines "\n"]close $fp } }

Cheers,
Scott

Statistics: Posted by oioifatty — Mon May 09, 2005 12:26 pm

one more 'basic' question on this

2005-05-09T10:14:23-04:00

Code:

if [string match "iptables -A OUTPUT -o \$internet -p tcp" $line] { # it's a match, delete..

Statistics: Posted by greenbear — Mon May 09, 2005 10:14 am

one more 'basic' question on this

2005-05-08T20:33:42-04:00

sorry that was proberly a bit vague,
############################
#this is the check button command#
############################
if {$http == 1} {
set a [open /iptab a+]
puts $a "iptables -A OUTPUT -o \$internet -p tcp" <--Inputs iptables command into file
close $a
} else {
#########################################
# this is the bit where i'd like the pattern matching #
#########################################
so, for example if "iptables -A OUTPUT -o $internet -p tcp" existed in the file, i'd like to remove it from the file.
so, basically selecting the tick box turns a feature on, deselecting it turns it off
}

Sorry if its a particulary difficult post to answer

Statistics: Posted by oioifatty — Sun May 08, 2005 8:33 pm

pattern matching and deleting.

2005-05-08T20:05:55-04:00

Just like to state this is a really great forum, actually the most imformative i've been on, btw not brown nosing. lol

To my question:

I am attempting to write a TCL/TK firewall gui on my fedora core box, just having bit of a problem with deleting strings from a file, I want to pattern match a string, and if it exists in a particular file i would like to delete it. I understand how to delete lines from a file (from the examples above), but just don't know how to go about matching a string and removing it. any help would be very appreciated.

Cheers to anyone who responds.

Statistics: Posted by oioifatty — Sun May 08, 2005 8:05 pm

one more 'basic' question on this

2004-12-26T08:28:53-04:00

just don't split on " "

Statistics: Posted by arcane — Sun Dec 26, 2004 8:28 am

one more 'basic' question on this

2004-12-26T04:08:26-04:00

How do you read from a file into a list, but allow strings with spaces to be on one line?

Statistics: Posted by [Zod] — Sun Dec 26, 2004 4:08 am

one more 'basic' question on this

2004-08-17T08:19:29-04:00

well, just drop the "foreach" part and use lindex on [split $data \n]

e.g. for line 13:

Code:

bind pub - .test pub:test proc pub:test { nick uhost handle channel arg } {    global testurl    set url $testurl    set file scripts/test.txt    exec lynx -preparsed -nolist -dump -width=5000 $url > $file    set textf [open $file r]    set data [split [read $textf] \n]    set text [lindex $data 12]    putserv "PRIVMSG $c :$text"    catch {close $file} }

always use "lindex -1" because the first line is index 0

Statistics: Posted by arcane — Tue Aug 17, 2004 8:19 am

one more 'basic' question on this

2004-08-17T02:44:02-04:00

Hi - one more 'basic' question on this (I've searched the forums but still havn't got it) - how would you go about reading a specific line number (as there's nothing unique in the text I can identify it with)
eg here's the script but using a string match, but instead, I want to get line number 13...

Code:

bind pub - .test pub:testproc pub:test { nick uhost handle channel arg } {global testurlset url $testurlset file scripts/test.txtexec lynx -preparsed -nolist -dump -width=5000 $url > $fileset textf [open $file r] set data [read $textf]foreach line [split $data \n] {if {[string match *word* $line]} {set text $lineputserv "PRIVMSG $c :$text" }}catch {close $file}}

appreciate in advance any help!

Statistics: Posted by NewzUK — Tue Aug 17, 2004 2:44 am

one more 'basic' question on this

2004-07-31T07:45:15-04:00

i, nice place
could you extend your explanation with:

-add/replace/del a midle line (special replace)
-replace a word in a line (let's say file as 3 lines and you want to change second word of second line)
-read a specific word on a line (could be same as abose 2 of 2)
tks extend this faq and make a guide/tutorial hould be great, nice and simple explenations here.

Statistics: Posted by netux — Sat Jul 31, 2004 7:45 am