egghelp/eggheads community

Counting Around Empty Lines in a file

2003-08-31T19:48:15-04:00

if you think about it...

Code:

proc a {var} {set var}

only has one command invocation while

Code:

proc b {var} {return $var}

has variable substitution AND a command invocation. So that pretty much explains where the extra cpu cycles go.

The command invocation is "compiled away" in the lastest version as you mentioned though, but apparently the two methods are still not equally demanding on the cpu. This must be because variable substitution is slower than command invocation in this particular case.

Statistics: Posted by user — Sun Aug 31, 2003 7:48 pm

Counting Around Empty Lines in a file

2003-08-31T14:50:48-04:00

There's a page at the tcl wiki explaining this, but I can't find it right now...i'll post a link to it if I do.

Found the page:

http://mini.net/tcl/1044

However, it says :
set result can under certain conditions be equivalent to (or better than)' ..

It also goes on to say:
And in recent versions of Tcl there's no longer a performance penalty for using it (return) either. :^)

I tried on tcl8.4.1 (which seems pretty recent), but I guess I will have to try on 8.4.4 as well.

Edit: TCL 8.4.4 Results:

Code:

% info patchlevel8.4.4% set aa 2424% proc dd {} {global aa; return $aa}% time dd36 microseconds per iteration% proc dd {} {global aa; set aa}% time dd30 microseconds per iteration

While it is closer, the 'set' method still appears to be a tad faster. (atleast in this situation)

Statistics: Posted by strikelight — Sun Aug 31, 2003 2:50 pm

Counting Around Empty Lines in a file

2003-08-31T14:39:38-04:00

There's a page at the tcl wiki explaining this, but I can't find it right now...i'll post a link to it if I do.

Statistics: Posted by user — Sun Aug 31, 2003 2:39 pm

Counting Around Empty Lines in a file

2003-08-31T14:00:35-04:00

return use more cpu than set

I'm just curious as to what you base this on?

EDIT:
Nevermind.. did some tests to verify:

Code:

% set aa 11% proc dd {} { global aa; return $aa }% set bb [time dd]66 microseconds per iteration% proc dd {} { global aa; set aa }% set bb [time dd]45 microseconds per iteration

Interesting..

Statistics: Posted by strikelight — Sun Aug 31, 2003 2:00 pm

Counting Around Empty Lines in a file

2003-09-01T04:13:54-04:00

And what's the point of set i then?

Making the last returned value inside the proc be the contents of the variable. (set returns the value of the variable when called with one argument) If we were to remove the 'set' line, an empty string would be returned (the value returned by 'close')
Get it?

Statistics: Posted by user — Sun Aug 31, 2003 1:43 pm

Counting Around Empty Lines in a file

2003-08-31T13:21:38-04:00

And what's the point of set i then?

Statistics: Posted by caesar — Sun Aug 31, 2003 1:21 pm

Counting Around Empty Lines in a file

2003-08-31T10:20:10-04:00

Instead of the last set i i think it should be return $i or something..

No need for that. (return use more cpu than set)

Here's why this works (from http://tcl.tk/man/tcl8.4/TclCmd/proc.htm ):

When a procedure is invoked, the procedure's return value is the value specified in a return command. If the procedure doesn't execute an explicit return, then its return value is the value of the last command executed in the procedure's body.

Statistics: Posted by user — Sun Aug 31, 2003 10:20 am

Counting Around Empty Lines in a file

2003-08-31T10:10:24-04:00

Instead of the last set i i think it should be return $i or something..

Statistics: Posted by caesar — Sun Aug 31, 2003 10:10 am

Two ways to do it

2003-08-31T09:52:34-04:00

\n+ in the regexp will count several linebreaks next to each other as one, and thus "ignore" the empty lines...

Code:

proc countNonEmptyLines {file} {set d [read [set f [open $file]]]close $fexpr {[regexp -all \n+ [string trim $d \n]]+1}}

or if you, for some reason, don't want to keep the entire thing in memory:

Code:

proc countNonEmptyLines {file} {set f [open $file]set i 0while {[gets $f l]>-1} {if {[string len $l]} {incr i}}close $fset i}

Statistics: Posted by user — Sun Aug 31, 2003 9:52 am

Counting Around Empty Lines in a file

2003-08-31T09:32:49-04:00

But how do I ignore empty lines?

By only counting the non-empty lines.

Statistics: Posted by user — Sun Aug 31, 2003 9:32 am

Counting Around Empty Lines in a file

2003-08-31T09:25:52-04:00

But how do I ignore empty lines?

Statistics: Posted by Darkj — Sun Aug 31, 2003 9:25 am

Re: Counting Around Empty Lines in a file

2003-08-31T09:23:52-04:00

Read the file line by line and don't count the empty ones

Statistics: Posted by user — Sun Aug 31, 2003 9:23 am

Counting Around Empty Lines in a file

2003-08-31T08:34:42-04:00

Basically, on rare occasions, sometimes my scripts add blank lines to a file, pretty sure I know how to fix that, but is there a way to count all the lines in the file, but tell it to ignore empty lines. Thanks.

Statistics: Posted by Darkj — Sun Aug 31, 2003 8:34 am