You now seem to understand that it is not a program problem but a problem with how many lines you can see in your output window.
One option would be to output to a file, such as
perl Test_1..pl >"C:/Users/Joe/Documents/Genealogy/birdt.ged.txt"
or
#!/usr/bin/perl
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 $!";
+ # three-argument open syntax
my @ged = <$FILE>; # slurp the file contents into
+ @ged
open my $OUTPUT,'>',$file_in.'.txt.' or die "could not open $file_in.
+txt $!";
select $OUTPUT;
my $count = $.;
print "no. of records: $count \n" ; # counting the number of recor
+ds
my $i=0; # stepping through the array $
+count = 5174
for ($i= 0; $i<$count; $i=$i+1)
{print "$i $ged[$i]\n"; }
or you could modify your cmd output buffer size.
On the output window, to the left of C;\Dwimperl\... is a black box with c:\ in it. Click on it, select properties, then the layout tab. Now increase the number of lines in the screen buffer size height, and press ok. Another box should open where you will want to select "save properties for future windows with the same title", then press ok. This should increase the screen buffers size for future runs of perl from padre |