將大文件拆分成更小的文件

Question

如何將大文件拆分成n使用Tcl的更小文件的數量？必須通過命令行給出要分割的文件名和要創建的文件數量。以下是我迄今爲止：

proc splitter { file no } { 
    set lnum 0 
    set file_open [open $file r] 
    while {[gets $file_open line] >= 0 } { 
    incr lnum 
    } 
    puts "$lnum" 
    set num [expr $lnum/$no] 
    close $file_open 
} 

Answer 1

這是一種分割文本文件的方法，它具有一次不佔用大量內存的優點。對於使用UNIX

#!/usr/bin/env tclsh8.5 
proc splitter {filename fileCount} { 
    set targetFileSize [expr {[file size $filename]/$fileCount}] 
    set n 0 
    set fin [open $filename] 
    while {[gets $fin line]} { 
     if {![info exist fout]} { 
      set fout [open $filename.split_[incr n] w] 
     } 
     puts $fout $line 
     if {[tell $fout] > $targetFileSize} { 
      close $fout 
      unset fout 
     } 
    } 
    if {[info exist fout]} { 
     close $fout 
    } 
    close $fin 
} 
splitter {*}$argv; # Connect to outside command line 

Answer 2

• 使用全局argv數組訪問命令行參數
• 你讀取的文件數，而不是關閉該文件句柄行，之後，你可以seek回到文件的頂部。
• 如果您是* nix，您是否考慮過使用exec致電split？