Re^4: Concatenating arrays fetched from different text files

To: Laurent_R,

Apologies for the confusion, I did not explain from the beginning that I want to retrieve the 4th element of each array. I thought it would not make a difference since I was not even aware of perlre.

After spending some time I manage to understand, that my problem could be solved by applying that simple solution. Unfortunately since they are new to me I am not feeling that comfortable with them. Never the less is always fascinating to learn new capabilities of programming languages.

I will update my sample files to clear the miss understanding about the 4th element that I am trying to read.

Thank you for your time and effort reading and answering my question.

Seeking for Perl wisdom...on the process...not there...yet!

Comment on Re^4: Concatenating arrays fetched from different text files

Replies are listed 'Best First'.
Re^5: Concatenating arrays fetched from different text files by Laurent_R (Canon) on May 29, 2014 at 20:17 UTC
Well, if I understand you correctly, you really need the 4th element of each array, which means that you only really need the 4th line of each file. If this is correct, then don't go into the trouble of storing all your files into arrays, but simply store into a single array the 4th line of each file (and you can stop reading the file as soon as you've reached the 4th line). Your code will be far simpler, will execute faster and use much less memory. Assuming the files are passed as arguments to the script, you could have something as simple as this (untested): `my @array; # I would use a better name if I knew the array's contents for my $file (@ARGV) { open my $FH, "<", $file or die "cannot open $file $!" while (<$FH>) { chomp and push @array, $_ and last if $. == 4; } } print "@array\n";` [download] Or did I misunderstand what you are after?	[reply] [d/l]

Replies are listed 'Best First'.

Re^5: Concatenating arrays fetched from different text files
by Laurent_R (Canon) on May 29, 2014 at 20:17 UTC

Assuming the files are passed as arguments to the script, you could have something as simple as this (untested):

my @array; # I would use a better name if I knew the array's contents
for my $file (@ARGV) {
     open my $FH, "<", $file or die "cannot open $file $!"
     while (<$FH>) {
          chomp and push @array, $_ and last if $. == 4;
     }
}
print "@array\n";
[download]

[reply]
[d/l]