no files matched glob pattern "ordali_*.tcl"
    while executing
"glob ordali_*.tcl"
    (in namespace eval "::request" script line 5)
    invoked from within
"namespace eval ::request $script"
    ("::try" body line 12)
OUTPUT BUFFER:
#!/usr/local/bin/tclsh



set Lf [glob ordali_*.tcl]
#set Lf "ordali_affiche.tcl"
foreach f $Lf {
    set fin [open $f r]
    
    set l [read -nonewline $fin]
    set Ll [split $l "\n"]
    close $fin

    set fou [open $f w]
    foreach l $Ll {
	regsub -all "MetAJourWTextGroupe" $l "MetAJourWNomsWSeqs" nl
	puts $fou $nl
    }

    close $fou
}

exit