egghelp/eggheads community

Re: Counting the lines in a file

2002-12-29T14:46:15-04:00

Why not just do the following?
Code:
set filelength [exec cat $filename | wc -l]

And not all systems "need" to have 'cat' or 'wc' commands. (ie. Windows).

Statistics: Posted by strikelight — Sun Dec 29, 2002 2:46 pm

Re: Counting the lines in a file

2002-12-28T12:19:05-04:00

Why not just do the following?
Code:
set filelength [exec cat $filename | wc -l]

On the shell system I'm using "[exec cat $filename | wc -l]" is about 15 times as slow as the "open/read/close/split/llength".
Your suggestion can be improved a bit by using [exec wc -l $filename], but it is still a factor 10 slower.

Statistics: Posted by egghead — Sat Dec 28, 2002 12:19 pm

Counting the lines in a file

2002-12-28T11:55:30-04:00

Why not just do the following?

Code:

set filelength [exec cat $filename | wc -l]

Statistics: Posted by Guest — Sat Dec 28, 2002 11:55 am

Counting the number of lines in a file

2002-12-22T00:55:05-04:00

I have sorted the problem now:
proc msg_listpassreqs {nick uhost hand args} {
global botnick requestpassfile
set fileread [open $requestpassfile r]
set all [read $fileread]
close $fileread
if { $all == "" } {
putnotc $nick "Error: No password requests pending"
return 0
}
set number 0
foreach count [split $all \n] {
incr number
}
putnotc $nick "There are [expr $number-1] password requests pending"
foreach line [split $all \n] {
puthelp "NOTICE $nick :$line"
}
}

just a tip, since you are converting "all" to a list delimited by \n, you might want to use llength to save iterations/cpu cycles. (ie. set number [llength [split $all \n]])

Statistics: Posted by strikelight — Sun Dec 22, 2002 12:55 am

Counting the number of lines in a file

2002-12-21T21:55:55-04:00

I have sorted the problem now:

proc msg_listpassreqs {nick uhost hand args} {
global botnick requestpassfile
set fileread [open $requestpassfile r]
set all [read $fileread]
close $fileread
if { $all == "" } {
putnotc $nick "Error: No password requests pending"
return 0
}
set number 0
foreach count [split $all \n] {
incr number
}
putnotc $nick "There are [expr $number-1] password requests pending"
foreach line [split $all \n] {
puthelp "NOTICE $nick :$line"
}
}

Statistics: Posted by simonbell — Sat Dec 21, 2002 9:55 pm

Counting the number of lines in a file

2002-12-21T21:10:16-04:00

hm actually, i just put a putlog "test" underneath 'foreach line [gets $fs] {' and it resulted in repeating 'test' 16 times. I have looked at the file manually and it only has 1 line in it...

Simon

Statistics: Posted by simonbell — Sat Dec 21, 2002 9:10 pm

Counting the number of lines in a file

2002-12-21T20:35:21-04:00

Are you sure its reading the file correctly? Try adding a putlog $line or another debug way to actually see what its counting. Off of the top of my head, I would have to say that script appears to be correct.

Statistics: Posted by tainted — Sat Dec 21, 2002 8:35 pm

Counting the number of lines in a file

2002-12-21T14:56:42-04:00

I am trying to count the number of lines in a file. The script i have so far is:

set number 0
set fs [open $requestpassfile r]
while {![eof $fs]} {
foreach line [gets $fs] {
set count [expr $number+1]
}
}
close $fs
putnotc $nick "There are $count password requests pending"

this script doesnt work though, it only ever says there are 1 lines in the file.

what am i doing wrong?

thanks
Simon

Statistics: Posted by simonbell — Sat Dec 21, 2002 2:56 pm