Beefy Boxes and Bandwidth Generously Provided by pair Networks
XP is just a number
 
PerlMonks  

Re: Simple file to array

by DamnDirtyApe (Curate)
on Jul 08, 2002 at 19:25 UTC ( #180283=note: print w/ replies, xml ) Need Help??


in reply to Simple file to array

open( FH, 'addys.txt' ) or die "Couldn't open file: $!" ; my @email_addys = <FH> ; close( FH ) ;

Pretty simple, probably doesn't really need explaining (but let me know if it does.)


_______________
D a m n D i r t y A p e
Home Node | Email


Comment on Re: Simple file to array
Download Code
(ichi) re x 2: Simple file to array
by ichimunki (Priest) on Jul 08, 2002 at 19:32 UTC
    Sure, this could use some explaining. But not too much. :)

    When using a filehandle in list context (such as assigning it to an array), each line is treated as a list element and assigned to the array just like if you were doing my @email_addys = ('x@y.com', 'foo@bar.org', ... ).

    One of the problems here is that this doesn't strip the linefeed character from the end of each line, so that what we end up with is an array like ("x@y.com\n", "foo@bar.org\n") when reading this from a file. We probably want to clean up the array, which we can do quickly with for( @email_addys ){ chomp }; at some point after the assignment.

      We probably want to clean up the array, which we can do quickly with for( @email_addys ){ chomp }; at some point after the assignment.

      `perldoc -f chomp` tells us an easier way: chomp @email_addys.

        Yes, that is much nicer, isn't it? :)
Re: Re: Simple file to array
by FoncÚ (Scribe) on Jul 08, 2002 at 19:33 UTC
    Oh, um...would having the @ in the email address cause a problem, or does it assume single quotes? Or, will I have to put single quotes around the email addresses in the outside file?
      One more thing--would this snippet work, or will it not chomp like that?:
      open( FH, 'addys.txt' ) or die "Couldn't open file: $!"; chomp (my @email_addys = <FH>); close( FH );
Re: Re: Simple file to array
by flounder99 (Friar) on Jul 08, 2002 at 20:15 UTC
    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.
    open( FH, 'addys.txt' ) or die "Couldn't open file: $!" ;
    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.
    my @email_addys = <FH> ;
    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( FH ) ;
    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

      A nice explination...this and everyone else's has helped me a lot...thanks! As I understand lexical variables, they would be the same as not passing a variable back into the programme from a subroutine in, say, BASIC, right? It just remains inside whatever sub or block and isn't global? But in this case, to allow it to be global, I simply leave of the my? Just making sure I have things straight. Also...the way I had it chomp above doesn't seem to work...Can someone explain why not?

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://180283]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (11)
As of 2014-11-23 02:42 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My preferred Perl binaries come from:














    Results (127 votes), past polls