file_copy.tcl

来自「TCL学习资料和源代码 希望对想学习TCL的人有帮助」· TCL 代码 · 共 42 行

proc getsource {} {
	set source_file ""
	while {$source_file == ""} {
		puts -nonewline "Enter the name of the source file \n (Ex: \\temp\\source.txt) : "
		set source_file [gets stdin]
	}
	if {[file isfile $source_file] == 0} {
		puts "*** $source_file  is not a valid file !"
		set source_file [getsource]
	}
	return $source_file
}

proc getdest {} {
	set dest ""
	while {$dest == ""} {
		puts -nonewline "Enter the name of the destination file \n (Ex: \\temp\\dest.txt) : "
		set dest [gets stdin]
	}
	return $dest
}

proc copy {source_file dest} {
	seek $source_file 0 start
	set buffer [read $source_file];
	seek $dest 0 start
	puts $dest $buffer
}

set filein [open [getsource] r]
set fileout [open [getdest] w+]

set err [catch {copy $filein $fileout} msg]
if {$err} {
	puts "Unable to copy your file, message returned : $msg"
}

puts "Copy Done"

close $filein
close $fileout