egghelp/eggheads community

duplicate in a file

2002-12-02T05:56:37-04:00

Maybe you should experiment on your own for a bit.

We will help along the way, but simply continously posting code, and expecting us to complete, fix or point your correctly every time, without giving the slightest though, to looking it over yourself (after making an attempt at correcting it).

As for the code: No.

Too be hoenst, I don't know where you got it from.

We are making pointers, showing you example code, that would help in your tracks, and you simply dump it in and expect it to work. THat is not how the forum operates.

You should take the code, review it, understand it, understand your own code and how the provided code could help you. You can then adapt it for your own use.

Think of how you want your script to operate in english first. How would you discribe what your script does? Give a numbered list, of every action and reactiont hat should take place.

IE. This is for a one-join script

1: Check to see if the joining party is know by me. If so, and he has the the +D channel flag, ont he channle he has joined, move to step 2, otherwise quit.

2: Send message to joining person.

3: Check if he has any notes. If yes, move to step 4, otherwise quit.

4: Tell the person how many notes they have and exit

This could be created (using fiction commands in some cases) like so. If you read the two of them side-by-side, you will note how much alike the code and english rules are.

Code:

proc on:join {nick uh hand channel} {  if {[matchatrr $hand +D $channel]} {    puthelp "PRIVMSG $channel :Welcome $nick"  } else {    return  }  if {[UserHasNotes $hand]} {    puthelp "NOTICE $nick :You have [NumberOfNotes $hand] waiting"  }}

Statistics: Posted by ppslim — Mon Dec 02, 2002 5:56 am

duplicate in a file

2002-12-02T00:29:51-04:00

may be now heh

if {$socklog != ""} {
set x [open $socklog r]
set somelist [split [read $file] \n]
set x [open $socklog a+]
while {![eof $file]} {
set x [gets $file]
lappend somelist "$x"
}
if {[lsearch -glob $somelist "$host*"] == -1} { puts $x "[date] [time] - $host"}
close $x
}

thanks

Statistics: Posted by EEggy — Mon Dec 02, 2002 12:29 am

duplicate in a file

2002-12-01T08:57:27-04:00

No - you will need to read over the "open" command, and find out about access flags.

Statistics: Posted by ppslim — Sun Dec 01, 2002 8:57 am

duplicate in a file

2002-12-01T01:25:55-04:00

hmm ok so is this correct..

if {$socklog != ""} {
set x [open $socklog a+]
while {![eof $file]} {
set x [gets $file]
lappend somelist "$x"
}
if {[lsearch -glob $somelist "$host*"] == -1} { puts $x "[date] [time] - $host"}
close $x
}

thanks

Statistics: Posted by EEggy — Sun Dec 01, 2002 1:25 am

duplicate in a file

2002-11-30T21:22:37-04:00

Place a little thought into it.

Before placeing a line in the file, you have to check for it's pre-existance.

This is what you have asked for, so this is what we have given you.

Statistics: Posted by ppslim — Sat Nov 30, 2002 9:22 pm

duplicate in a file

2002-11-30T18:29:22-04:00

thanks ppslim, but i am still confused..how do i set these codes to stop duplicates host...

if {$socklog != ""} {
set x [open $socklog a+]
puts $x "[date] [time] - $host"
close $x
}

i'll appreciate it
thanks

Statistics: Posted by EEggy — Sat Nov 30, 2002 6:29 pm

duplicate in a file

2002-11-30T09:31:47-04:00

There is no need to use gets in this situation.

You are reading the whole file, before you do the search. If the search was done on the fly, then yes, you could use this.

However, using the read command would be simpler.

Code:

set somelist [split [read $file] \n]

Statistics: Posted by ppslim — Sat Nov 30, 2002 9:31 am

duplicate in a file

2002-11-30T08:21:13-04:00

Code:

while {![eof $file]} {    set x [gets $file]    lappend somelist "$x"  }if {[lsearch -glob $somelist "$host*"] == -1} { blabølabla add the thingie...

Statistics: Posted by Papillon — Sat Nov 30, 2002 8:21 am

duplicate in a file

2002-11-29T11:31:06-04:00

Thanks, could you please give me an example for "lsearch" ...
thanks again

Statistics: Posted by EEggy — Fri Nov 29, 2002 11:31 am

duplicate in a file

2002-11-29T03:43:46-04:00

either you make a loop and check each of the lines in the file, or you add the whole file to a list and use lsearch on it

Statistics: Posted by Papillon — Fri Nov 29, 2002 3:43 am

duplicate in a file

2002-11-28T20:08:18-04:00

hi, when i write logs to the file, how do i make sure it shouldn't write duplicates,?/ i mean if host is there, no need to write it again..

if {$socklog != ""} {
set x [open $socklog a+]
puts $x "[date] [time] - $host"
close $x
}

thanks

Statistics: Posted by EEggy — Thu Nov 28, 2002 8:08 pm