TCl/Tk bináris adatmozgatás

Szkriptek: Python, Perl, Bash, ...

Sziasztok!

Hátha van it egy Tcl/Tk gur (-::

A gond a következő: binárisan kéne mozagatnom egy adatállományt.
A gets és a read is lecsapja a sorvégeket, ha azok nem Unix
formátumúak! A puts a -nonewline - nal ugy néz ki jól működik, azaz
csak az inputtal van a gond.

Vagyis ezt kéne kiváltani Tcl/Tk nyelvi elemekkel:

# ez működik, de nincs a kezembe a folyamat
exec cat < $source > $target

A válaszokat előre is köszönöm: meditor

  • 716 megtekintés

( meditor | 2007. 11. 14., sze – 16:26 )

Asszem megvan: a kulcs az fconfigure. Érdekes, hogy a
puts és a gets nem tükörképei egymásnak. Vajon miért nem?

***** code:

set sou_fd [open $source "r"]; fconfigure $sou_fd -translation binary;
set tar_fd [open $target "w"]; fconfigure $tar_fd -translation binary;

while {![eof $sou_fd]} {

set buffer [read $sou_fd 100]
puts -nonewline $tar_fd $buffer
}

close $sou_fd; flush $tar_fd; close $tar_fd

> Sol omnibus lucet.