Tcl\U SetObjLength:请求的负长度错误

我有一个大约4200万行的文件,我正试图在TCL中读取和解析它。但是,我在打印D1后立即收到以下错误消息。有没有其他方法可以读取大文件?

proc test {} {
        set rpt "<file_name>"
        puts "D0"
        set lines [open $rpt r]
        puts "D1"
        set Data [read $lines]
        puts "D2"
        close $lines
}

输出错误:

D0
D1
Tcl_SetObjLength: negative length requested: -2147483646 (integer overflow?)