[tcl] EOF sturen naar programma

[Martink]

Ik heb in een tcl scriptje een programma gestart

code:

set prog [open "|programma.exe"]

maar nu moet ik eof sturen voordat dat programma iets uitpoept
heb al wat met http://www.tcl.tk/man/tcl8.4/TclCmd/fconfigure.htm#M9 zitten rommelen maar hij werkt niet

[2P]

Jij moet een EOF sturen?
Als het programma klaar is met uitvoeren dan krijg je vanzelf een EOF.
Je maakt een lusje met als voorwaarde dat ie nog niet bij het einde is.

Of bedoel je toch iets anders?

[Martink]

tcl scriptje moet eof sturen zodat dat programma aan het werk gaat
en dan wat dingen laat zien, dat ik dus met tcl scriptje kan inlezen.

[moto-moi]

Martink schreef op 18 oktober 2002 @ 15:49:
tcl scriptje moet eof sturen zodat dat programma aan het werk gaat
en dan wat dingen laat zien, dat ik dus met tcl scriptje kan inlezen.

Geef eens een stukje code als voorbeeld ? Want hier kan ik geen chocola van maken
Welk programma roep je aan En wat verwacht 'ie als invoer ?

[Martink]

code:

proc php {source} {
set php "[open "|php/php.exe" w+]"
puts $php "<? echo time(); ?>";
fconfigure $php -eofchar "|"
puts -nonewline $php "|"
while {![eof $php]} { putlog [gets $php] }

}

dat heb ik nu dus maar php.exe poep niks uit,
wel als ik php.exe filename.php doe dan werkt het wel maar hij moet source zelf sturen