Aim:

☛   Write a TCL script to Copy a file and translate to native format.

Solution :

PROGRAM: (copy_file.tcl)

 
set sourceFile "input.txt"
set destFile   "output.txt"

# Open source file for reading
set in [open $sourceFile "r"]

# Open destination file for writing in native format
set out [open $destFile "w"]
fconfigure $out -translation native

# Copy content line by line
while {[gets $in line] >= 0} {
    puts $out $line
}

# Close files
close $in
close $out

puts "File copied and translated to native format."

OUTPUT:

 
File copied and translated to native format.