0 ordali_StrucObj.tcl
<pre>couldn't open "ordali_StrucObj.tcl": permission denied
    while executing
"open $f w"
    ("foreach" body line 11)
    invoked from within
"foreach f [lsort $Lf] {
    set Ll [LesLignesDuFichier $f]
    set Lnl [list]
    set n 0
    foreach l $Ll {
	incr n [regsub -all -- "LesNomsDesSeque..."
    (in namespace eval "::request" script line 14)
    invoked from within
"namespace eval ::request $script"
    ("::try" body line 12)<hr/><p>OUTPUT BUFFER:</p>#!/usr/local/bin/tclsh

proc Contenu {f} {
    set foo [open $f r]
    set l [read -nonewline $foo]
    close $foo
    return $l
}
proc LesLignesDuFichier {f} {
    return [split [Contenu $f] "\n"]
}

set Lf [glob ordali_*.tcl]
foreach f [lsort $Lf] {
    set Ll [LesLignesDuFichier $f]
    set Lnl [list]
    set n 0
    foreach l $Ll {
	incr n [regsub -all -- "LesNomsDesSequencesDuGroupe" $l "SDG" nl]	
	incr n [regsub -all -- "ListeDesNomsDeGroupes" $nl "LNDG" nl]
	lappend Lnl $nl
    }
    puts "$n $f"
    set foo [open $f w]
    puts $foo [join $Lnl "\n"]
    close $foo
}

exit


</pre>