Laurent Gateau

My contribution :

scan tcp port
Vigenere to encrypt or decrypt any file (binary or text)
The list of Tk widgets
ttk::style short simple example
clock's valid year : a catch example

And there are some old stuff about wikit :

I've started a web server on a home computer; which leads to suggest a small modification of wikit.kit : Wikit web change + div tag css style and also a small modification of TclHttpd TclHttpd change + div tag css style

Here is a small script to filter netstat output so that it only displays ip addresses.

 proc isIPAddress { ip } {
        set pattern {\d{1,3}.\d{1,3}.\d{1,3}.\d{1,3}}
        return [regexp $pattern $ip match];
 }
 set whoisconnected [exec netstat -n | cut -d " " -f2 | cut -d "." -f 1-4 | sort | uniq ]
 foreach host $whoisconnected {
        if [isIPAddress $host] {
                puts $host
        }
 }

Another small script, using info command, which displays the tcl global variables :

 foreach name [info globals] {
        if {[array exists $name]} {
               puts -nonewline "a "
        } else {
               puts -nonewline ". "
        }
        puts $name
 }

The same script with proc :

 proc display { varname } {
        set result 0
        if [array exists "::$varname"] {
                puts -nonewline "a "
                puts $varname
                set result 1
        } else {
                puts -nonewline ". "
                puts $varname
        }
        return $result
 }

 proc run {} {
        foreach name [info globals] {
                if {[display $name]} {
                        foreach subname [array name "::$name"] {
                                   puts "   ($subname)"
                       }
                }
        }
 }

 run

Category Person