You can do the same for the other fields.open(FILE1, $ARGV[0]); $c=0; while (<FILE1>) { $line=$_; printf("line %2d: %s", $c++, $line); $ref=$1 if /^Referer: (.*)/; }
In reply to Re: Parsing a file one line at a time
by fundflow
in thread Parsing a file one line at a time
by cburns
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |