exfacior has asked for the wisdom of the Perl Monks concerning the following question:

Hey guys im new here! Your articles and questions have helped me alot. Just a quick one here.
I read from Ovid how to read each line from a file into a variable ala 

open (FILE,"filepath") || die "Can't open file";
chomp ( my ( $var1 , $var2 , $var3 ) = <FILE> );
close (FILE)

[download]
but was wondering if it were possible to assign all the lines to an array just as easily.

in my case, there are 11 lines, and each line contains one int.

Replies are listed 'Best First'.
Re: Making an array out of each line in a file
by TedYoung (Deacon) on Nov 11, 2004 at 21:54 UTC

    Sure,

    my @lines = <FILE>;

    [download]

    Ted Young

    ($$<<$$=>$$<=>$$<=$$>>$$) always returns 1. :-)
[reply]
[d/l]
[select]

      chomp( my @lines = <FILE> );

[reply]
[d/l]
Re: Making an array out of each line in a file
by atcroft (Abbot) on Nov 11, 2004 at 21:56 UTC 
    open(FILE, "filepath") || die "Can't open file";
@array = <FILE>;
close(FILE);

    [download]

    So that line 1 in your file will be in $array[0], line 2 in $array[1], etc.

    Hope that helps.

[reply]
[d/l]
[select]
Re: Making an array out of each line in a file
by pg (Canon) on Nov 11, 2004 at 22:13 UTC

    One way is to use Tie::File.

    test.pl:

use Tie::File;
use Data::Dumper;

my $self = tie @array, "Tie::File", "test.pl";
print Dumper(\@array);

    [download]
[reply]
[d/l]
Re: Making an array out of each line in a file
by FoxtrotUniform (Prior) on Nov 11, 2004 at 21:58 UTC 
    open FILE, '<', $filename
  or die "Can't open $filename: $!\n";
my @lines = <FILE>;
close FILE
  or die "Can't close $filename: $!\n";

    [download]

    will fill @lines. See also the $/ variable.

    --
    Yours in pedantry,
    F o x t r o t U n i f o r m
    "Anything you put in comments is not tested and easily goes out of date." -- tye

[reply]
[d/l]
[select]
      This caught my eye.

      Sorry for being pedant but we are opening files here, so - unless you mistype your file handle, - you can always close a filehandle. Or am I wrong?
      So there is no benefit of dieing on close. If we do not need to reset $., we need not even close it.

      Cheers,
      PerlingTheUK
[reply]
        Sorry for being pedant but we are opening files here, so - unless you mistype your file handle, - you can always close a filehandle. Or am I wrong?

        No need to apologize for being pedantic :-). I can't think of a situation where close would fail on a plain old file on a local filesystem; for that, it's just habit. But networked filesystems, sockets, pipes, and so on can mess up close; besides, Always Check System Call Return Values is a good habit to get into.

        --
        Yours in pedantry,
        F o x t r o t U n i f o r m
        "Anything you put in comments is not tested and easily goes out of date." -- tye

[reply]
[d/l]
[select]

Back to Seekers of Perl Wisdom