Perl-Sensitive Sunglasses | |
PerlMonks |
comment on |
( [id://3333]=superdoc: print w/replies, xml ) | Need Help?? |
Foncé asked specifically for an explaination so I will do a little expaining of DamnDirtyApe's code. I'm sure any mistakes I make will be corrected Immediately.
This line opens the file "addys.txt" to filehandle FH. The function open will return a true value if the file open's sucessfully and a false value if it fails. If the file opens sucessfully the or will "short circuit" meaning since it already has a true value there is no need to evaluate the rest of the statement. If the open fails the die will be executed and the program will quit giving an error message. This is a pretty common way of testing that an open succeeded. You should always check the return value of an open it will usually save you a lot of debug time. This line does the bulk of what you ask for. The my @email_addys creates a lexical array variable to hold the email addresses. The diamond operator ( <> ) on a filehandle reads the next line from the file. If it is being used in what is called a list context it will slurp up the whole file and return a list where each line of the file will be one of the elements of the list. List context means that whatever it is feeding is expecting a list of items. Since we are assigning to an array variable this is a list context. If we were asigning to a scalar variable the diamond operator would only return a scalar containing the next line of the file (or undef if we were past the end of the file). Understanding context is one of the most important parts of understanding perl. Close the filehandle. Notes: Each element of the @email_addys array will have a trailing newline "\n" (except maybe the last one depending on whether the last line of the file had a newline at the end.) -- flounder In reply to Re: Re: Simple file to array
by flounder99
|
|