use strict;
use warnings;
use Data::Dumper;

my @AoA = ([ 1, 2, 3], [10, 20, 30]);
my @addIn2DAoA = ([ 4, 5 ], [40, 50, 60, 70]);
my @combined2D = merge2D(\@AoA, \@addIn2DAoA);
print Dumper \@AoA, \@addIn2DAoA, \@combined2D;
sub merge2D {
    my ($arr1, $arr2) = @_;
    my $rownum1 = @$arr1;
    my $rownum2 = @$arr2;
    my @combined = ();

    if ($rownum1 != $rownum2)
    {                     # end the program, return an empty 2D array
        return @combined;
    }

    my @newrow = ();
    for (my $i = 0; $i < $rownum1; $i++)
    {
        @newrow = (@{$arr1->[$i]}, @{$arr2->[$i]});
        push @combined, [@newrow];
    }
    return @combined;
}

sub merge2D {
my ($arr1, $arr2) = @_;
my @AoA1 = @{$arr1};
my @AoA2 = @{$arr2};
my $rownum1 = @AoA1;
my $rownum2 = @AoA2;
my @combined = ();

if ($rownum1 != $rownum2){ # end the program, return an empty 2D array
return @combined;
}

my @newrow = ();
for (my $i = 0; $i < $rownum1; $i++){
@newrow = (@{$AoA1[$i]}, @{$AoA2[$i]});
push @combined, [@newrow];
}
return @combined;
}

How to get there?

thanks!

I have finally managed to get it to work properly. All of the problems stemmed from calling the array from inside the sub which I probably would never have worked out.

Thanks again

Ben

I can sort each sub-array but then end up with multiple sorted lists. I would then like to remove duplicates etc but this only works on each individual list.

I am currently testing on three files and this is the code and output:-

sub process #Reads each review file and creates list of words
{
my @outLines; #Data that is going to output
my $outLines;
my $line; #Data that is read line by line
my @wordList; #Sorted array
my $wordList;

if ( $File::Find::name =~ /\.txt$/ ) #Find .txt files
{

open ( REVIEWFILE, $File::Find::name ) or die “Cannot open file: $!”; #Open .txt file

while (defined($line = ))
{
$line =~ s/[’]+//g; #Remove ‘ from words
push(@outLines, split(/[^a-z]+/, $line)); #Place each word into array
}

close ( REVIEWFILE );
}

@outLines = sort(@outLines);

print “@outLines\n”;

}

Reading files.

a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a about about about…..
a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a about acceptable action…..
a a a a a a a a a a a a a a a a a a about about about about absurdist acting…..
All files read.

my @all_words;

sub process #Reads each review file and creates list of words
{
if ( $File::Find::name =~ /\.txt$/ ) #Find .txt files
{
open ( REVIEWFILE, $File::Find::name ) or die “Cannot open file: $!”; #Open .txt file
while (defined(my $line = <REVIEWFILE> ))
{
$line =~ s/[’]+//g; #Remove ‘ from words
push(@all_words, split(/[^a-z]+/, $line)); #Place each word into array
}
close ( REVIEWFILE );
}

I combined two of your substitution regexes into a split argument. Now I haven’t tested this but I think it should work unless I overlooked something… the key is using push() with a list as the second argument.

I am currently using the File::Find function to iterate through each file and, after some basic regex, creating an array where each element is an array of the line being read (AoA). Then I am writing each array to a seperate file creating a list of every word used. I am then reading this file back to a new array - as each word is a now a new line it is easy to split() in order to sort etc creating the final list.

If that was’t too confusing I would like to miss out the step of having to write to a file (OUTWORDS) and be able to read each word of each file to the next element of the original array so that I can sort etc without the need to use a seperate file.

Thank you.

Here is the basic part of the code:

sub process #Reads each review file and creates list of words
{
my @outLines; #Data that is going to output
my $line; #Data that is read line by line

if ( $File::Find::name =~ /\.txt$/ ) #Find .txt files
{

open ( REVIEWFILE, $File::Find::name ) or die “Cannot open file: $!”; #Open .txt file

# print $File::Find::name . “\n”;

while ( $line = )
{
$line =~ s/[']+//g; #Remove ‘ from words
$line =~ s/[^a-z]/\n/g; #All non alphabet to newline
$line =~ s/\n+/\n/g; #Squeeze newlines

push(@outLines, $line); #Place each line into array
}

close ( REVIEWFILE );

open ( OUTWORDS, “>>$outFile”) || die “Cannot open file: $!”;
print ( OUTWORDS @outLines ); #print array to file
close ( OUTWORDS );

undef( @outLines );
}