Two ways in which Perl reads strings from a file _perl

1. Read all the contents of the file into an array at once (this method is suitable for small files):

Copy Code code as follows:

Open (FILE, "filename") | | Die "Can not open the file: $!";
@filelist =<file>;

foreach $eachline (@filelist) {
Chomp $eachline;
}
Close FILE;
@filelist =<file>;

An "Out of memory" error may occur when a file is large.

2. Read and process one row at a time from a file (easier to read large files):

Copy Code code as follows:

Open (FILE, "filename") | | Die "Can not open the file: $!";
while (defined ($eachline =<file>)) {
Chomp $eachline;
# do what u want here!
}
Close FILE;