25 lines
400 B
Tcl
Executable File
25 lines
400 B
Tcl
Executable File
package require TclCurl
|
|
|
|
# This is one contrived example, but it works.
|
|
|
|
proc writeToFile {readData} {
|
|
puts "writeToFile called [incr ::i]"
|
|
puts -nonewline $::inFile $readData
|
|
|
|
return
|
|
}
|
|
|
|
set i 0
|
|
|
|
set inFile [open "cosa.tar" w+]
|
|
fconfigure $inFile -translation binary
|
|
|
|
curl::transfer -url "127.0.0.1/~andres/cosa&co.tar" \
|
|
-writeproc writeToFile -buffersize 250
|
|
|
|
close $inFile
|
|
|
|
|
|
|
|
|