Re: Array size too big?

Hi, did you read through all of perlintro as you were advised earlier?

Here's how to read a file and print it line by line, as explained in more detail in perlop - IO Operators:

use strict; use warnings;

my $file_in = "C:/Users/Joe/Documents/Genealogy/birdt.ged";

open my $FILE, "<", $file_in or die "could not open $file_in $!";

while ( my $line = <$FILE> ) {
    print "$. $line";
} 

close $FILE or die "could not close $file_in $!";

__END__
[download]

Although I would rather use the convenience of a filehandling module like Path::Tiny :

use strict; use warnings;
use Path::Tiny; # imports path()

my $file_in = "C:/Users/Joe/Documents/Genealogy/birdt.ged";

my $line_num = 0;
for my $line ( path( $file_in )->lines ) {
    print sprintf '%4d %s', ++$line_num, $line;
} 

__END__
[download]

Hope this helps!

The way forward always starts with a minimal test.

Comment on Re: Array size too big? Select or Download Code

Replies are listed 'Best First'.
Re^2: Array size too big? by JillB (Novice) on Nov 19, 2017 at 23:59 UTC
Thanks lnickt. I read the perlintro as suggested, but I preferred , in this instance , to work with an array, and to check the contents of the array. This is because further down the track of this program I want to manipulate the contents of some lines in the array, and add additional lines to the arrays.	[reply]
Re^3: Array size too big? by haukex (Archbishop) on Nov 20, 2017 at 09:10 UTC
I preferred , in this instance , to work with an array, and to check the contents of the array. This is because further down the track of this program I want to manipulate the contents of some lines in the array, and add additional lines to the arrays. It might still be worth considering doing the work in one pass while reading the file line-by-line. While 5174 lines is probably still small enough to fit into memory, if your file does grow, performance might suffer, and you might end up having to rewrite the program. The general approach would be to use a `while (<$filehandle>)` loop to read the file line-by-line and keep track of the current line number yourself or with Perl's special variable $.. For each line you read, either modify it or don't, and print it back out. When you hit the line number where you want to insert records, use additional print statements in an `if` to do so. But of course I also understand the simplicity of just manipulating an array. Note that the core module Tie::File might be worth looking at, it will give you a normal-looking Perl array, but behind the scenes it is actually accessing the lines of the file, while keeping only some of them in memory. You can then do all your normal Perl array operations on it, including splice to remove and insert records, and the changes will be made to the file. While the module isn't necessarily the fastest when it comes to writing to the file, it does have the advantage to give you a pretty transparent interface and you don't have to worry about memory management.	[reply] [d/l] [select]
Re^3: Array size too big? by 1nickt (Canon) on Nov 20, 2017 at 00:40 UTC
Hi, see my second example, showing how to get an array of the lines with `Path::Tiny::lines()` (which you should probably use with the `chomp` option if you are planning to do more than simply print the lines): `use strict; use warnings; use Path::Tiny; my $filename = "foobar.txt"; my @lines = path( $filename )->lines({ chomp => 1 }); # done!` [download] The way forward always starts with a minimal test.	[reply] [d/l] [select]