egghelp/eggheads community

Deleting names in files

2005-07-05T09:35:20-04:00

I wasn't talking about the brackets i was talking about what you used for llength.

When you get the errormessage

should be llength list it means use [llength ]
Not [llength list ].

Statistics: Posted by metroid — Tue Jul 05, 2005 9:35 am

Deleting names in files

2005-07-05T02:54:20-04:00

.

You should go through the tcl-commands.doc BEFORE you ask us to fix your code.

Well, i cant remember that in TCL-documents the way too place brackets is getting explained.

Well i shall see if i cant find a good guide or manual about placing brackets,

sry for the question

Statistics: Posted by Dizzle — Tue Jul 05, 2005 2:54 am

Deleting names in files

2005-07-05T01:40:18-04:00

It's because you've made it all wrong, what are you using brackets for?

Code:

if {[llength [chanlist $chan] < $setting(minusers) ->>> ] <<<-} {

That's one of the useless brackets not supposed to be in there

Code:

{[llength list [[chanlist $chan] < $setting(minusers)]]} {

Now you've done it again and added more useless brackets not to mention list?!
Not to mention do it all wrong.

You should go through the tcl-commands.doc BEFORE you ask us to fix your code.

PS:

Code:

if {[llength [chanlist $chan]] < $setting(minusers)} {

Statistics: Posted by metroid — Tue Jul 05, 2005 1:40 am

Deleting names in files

2005-07-05T00:51:21-04:00

I know the peice of code Sir_Fz had made. is not the problem maker, the peice of code that count the users of a channel is not right, butt i can figger out what cause the usercount is being used by me in another script and it is not given any troubles

Statistics: Posted by Dizzle — Tue Jul 05, 2005 12:51 am

Deleting names in files

2005-07-04T13:52:23-04:00

Well having this problem now

Code:

set file "home/warseeker/channels/chanfile"set setting(minusers) "15"set setting(privechan) "#warseeker.prive"bind pub m|m !gc global:checkproc global:check {nick uhost hand chan text} {foreach chan [channels] {check:forward $chan }}proc check:forward {chan} { global file settingif {[llength [chanlist $chan] < $setting(minusers)]} {set exists 0 set chan [lindex [split $arg] 0] foreach temp [split [string tolower [read [set inf [open $file]]]] "\n"][close $inf] { if {[string equal -nocase [lindex [split $temp] 0] $chan]} { set exists 1 break } } if {$exists} { set z "" set a [open $file r] while {![eof $a]} { set b [gets $a] if {![string equal -nocase [lindex $b 0] $chan]} { lappend z ${b} } } close $a set n [open $file w] foreach k $z { if {$k != ""} { puts $n $k } } close $n putlog "Deleted $chan from file." puthelp "MSG $setting(privechan) : $chan was deleted, the channel was not having enough users"utimer 5 [list remove channel $chan]utimer 7 [list savechannels]} { putlog "ERROR $chan not found in chanlist" } }}

Error : Tcl error [global:check]: wrong # args: should be "llength list"

When i rewite the script and make it

Code:

{[llength list [[chanlist $chan] < $setting(minusers)]]} {

it returns all the names off the users on that channel with the msg
Tcl error [global:check]: invalid command name, (and all the names)

So i guess this is not right, i tried a little more things butt then the code i complety messed up,

Can you guys give me some help ?

Statistics: Posted by Dizzle — Mon Jul 04, 2005 1:52 pm

Deleting names in files

2005-07-04T09:16:15-04:00

Well, it are only channel names of requested channels, dont know if this will take up much memory.

Butt you mean i should use listing insted of file readind and save this too a file i a part of a day like every 45 min ?

Statistics: Posted by Dizzle — Mon Jul 04, 2005 9:16 am

Deleting names in files

2005-07-03T14:08:42-04:00

on a side note, if you are not severely restricted with memory usage (almost never the case with scripts), you better slurp all data from your data file at once, do all data manipulation in memory (that would typically be list & array manipulation), and periodically save all data to the file - as opposed to manipulating data inside files, which of course is slower & more complex

Statistics: Posted by demond — Sun Jul 03, 2005 2:08 pm

Deleting names in files

2005-07-03T13:25:25-04:00

that could be a good idea, i will check if bol.com has some good books about TCL scripting

Statistics: Posted by Dizzle — Sun Jul 03, 2005 1:25 pm

Deleting names in files

2005-07-03T13:09:53-04:00

you better buy a book

Statistics: Posted by demond — Sun Jul 03, 2005 1:09 pm

Deleting names in files

2005-07-03T11:49:38-04:00

thx Sir_Fz, for the code.

You know a good site where i can learn these things, because im dieing too learn TCL in a advanced way ??

Statistics: Posted by Dizzle — Sun Jul 03, 2005 11:49 am

Deleting names in files

2005-07-03T08:15:04-04:00

This proc should delete the name only if it exists:

Code:

proc rem:chan {arg} { global file set exists 0 set chan [lindex [split $arg] 0] foreach temp [split [string tolower [read [set inf [open $file]]]] "\n"][close $inf] {  if {[string equal -nocase [lindex [split $temp] 0] $chan]} {    set exists 1   break  } } if {$exists} {  set z ""  set a [open $file r]  while {![eof $a]} {   set b [gets $a]   if {![string equal -nocase [lindex $b 0] $chan]} { lappend z ${b} }  }  close $a  set n [open $file w]  foreach k $z {   if {$k != ""} { puts $n $k }  }  close $n  putlog "Deleted $chan from file."  } {  putlog "$chan does not exist in file." }}

Statistics: Posted by Sir_Fz — Sun Jul 03, 2005 8:15 am

Deleting names in files

2005-07-03T06:23:30-04:00

Hello, i have a little question.

The script im working on saves channels names too a file,
When the script its doing its job, it saves channels names too a files (writing) and it checkes of the channel name is already in there.

Butt my problem is how too delete a channelname, he has too search for it in a file that may contain like 100 channelnames and delete the one matching the channelname i like too erase from the file.

I have read suninet.nl for basic file working, butt the supject doenst coem forward in that Guide.

You guys have a Guide for me, or just the code you gave too use for this

Verry much thx's

Statistics: Posted by Dizzle — Sun Jul 03, 2005 6:23 am