How do I parse a file one line at a time? I passed the file as an argument to the prog, and I'm trying to place the lines of the file into an array. Here's the code:
#!/usr/local/bin/perl
# server.pl, my mini-server in perl
open(FILE1, $ARGV[0]);
while (<FILE1>) {
@lines = $_;
}
print "lines[0] = $lines[0]\n";
print "lines[1] = $lines[1]\n";
print "lines[2] = $lines[2]\n";
here's the file:
> more test4a.txt
POST /cgi-bin/myprog.cgi HTTP/1.0
UserAgent: MyBrowser
Referer: http://www.rutgers.edu
Content-type: application/x-www-form-urlencoded
Content-length: 16
and here's the output:
> ./server.pl test4a.txt
lines[0] = Content-length: 16
lines[1] =
lines[2] =
Do I need to have '\n' at the end of each line in the file, and then use split on the '\n' ? The program seems to be reading the entire file and placing the last line only into the array.
Thanks