Tcl - Процент контроля загрузки по FTP

Question

Как я могу показать процент загрузки, обработанной ::ftp::Put в Tcl ?

Пример:

proc upload {host user pass dir fileList} {
      set handle [::ftp::Open $host $user $pass]

     ftpGoToDir $handle $dir
      # some counters for our feedback string
      set j 1
      set k [llength $fileList]

      foreach i $fileList {
        upload:status "uploading ($j/$k) $i"
        ::ftp::Put $handle $i
        incr j
}

Спасибо:)

Answer 1

Вот один из способов (не проверено):

proc upload {host user pass dir fileList} {
    set handle [::ftp::Open $host $user $pass]

    ftpGoToDir $handle $dir
    # some counters for our feedback string
    set j 1
    set k [llength $fileList]

    foreach i $fileList {
        upload:status "uploading ($j/$k) $i"
        upload:execute $handle $i
        incr j
    }
}

proc upload:execute {handle filename {chunksize 8196}} {
    set filesize [file size $filename]
    set sent 0
    set fid [open $filename r]

    Put_or_Append Put $handle $fid $chunksize $filename $filesize sent
    while {![eof $fid]} {
        Put_or_Append Append $handle $fid $chunksize $filename $filesize sent
    }
    close $fid
}

proc Put_or_Append {cmd handle fid chunksize filename filesize sentvar} {
    set chunk [read $fid $chunksize]
    ::ftp::$cmd $handle -data $chunk $filename
    upvar 1 $sentvar sent
    incr sent [string length $chunk]
    puts [format "sent %d bytes (%d%%)" $sent [expr {100*$sent/$filesize}]]
}