Perl file reading

Address: http://blog.csdn.net/omohe/article/details/1562515

To read a string from a file using Perl, you can use either of the following methods:

1. Read all the content in the file into an array at a time (this method is suitable for small files ):

Open (file,"Filename") | Die"Can not open the file: $!";
@ Filelist = <File>;

Foreach $ eachline (@ filelist ){
Chomp $ eachline;
}
Close file;

@ Filelist = <File>;
When the file is large, the "out of memory" error may occur. You can use the following method to read a row at a time.

2. Read and process one row from a file and one row at a time (it is more convenient to read large files ):

Open (file,"Filename") | Die"Can not open the file: $!";

While (defined ($ eachline = <File> )){
Chomp $ eachline;
# Do what u want here!
}
Close file;