perl读取大文件out of memory

工作需要用perl写了一个脚本读取1G多的文件，直接报out of memory，对perl不是很熟悉就上网查了资料，后来发现是因为写的读取文件内容时直接将所有文件内容读入数组导致这个问题。工作需要用perl写了一个