Joining arrays from filehandles 2

[artisst]

sub normal_search
{

### PERFORM SEARCH

$search_line = $fields{'keywords'};
$icnt = 0;
$toadk = "";

open (SIDX, "$data_dir/search.idx");
open (SIDX2, "$data_dir/search2.idx");

I need to join both files here into @skeyw

my @sidx = <SIDX>;
my @sidx2 = <SIDX2>;

@sidx = grep {$_ ne ""} @sidx;
@sidx2 = grep {$_ ne ""} @sidx2;

@skeyw = (\@sidx, \@sidx2);

## How do I join @sidx, @sidx2 into @skeyw ##

#my $line = join('|', @sidx, @sidx2);
#$line = qr/$line/;

(@skeyw) = split(/ /,$search_line);

$nrkeywords = 0;
foreach $item (@skeyw){$nrkeywords++;}

Then return the results from both files

	{
	$sline = $line;
	
	}
		{
	foreach $kwr (@skeyw)
		{

		if (($sline =~ /$kwr/i) and ($kwr ne ""))
			{
			
			$toadk = "true";
			}
			
		}

		if ($toadk eq "true")
			{
			$resultline[$icnt] = $line;
			$toadk = false;
			$icnt++;
			}

	}
	
	
	
	
 #if ($file_locking ne "No"){flock (CIT, LOCK_UN);}
close (SIDX);
close (SIDX2);

}

 

[parkers]

Hi artisst,

if you have @sidx, @sidx2 then you can add these to the @skeyw array with a simple push command ...

i.e.

push (@skeyw,@sidx,@sidy)

Thanks,
SP

 

[parkers]

..sorry, should have been ...

push (@skeyw,@sidx,@sidx2)

 

[uida1154]

or directly push both files into the array @skeyw

 

[artisst]

For some reason, this following not working:

sub normal_search
{

### PERFORM SEARCH

$search_line = $fields{'keywords'};
$icnt = 0;
$toadk = "";

open (SIDX, "$data_dir/search.idx");
open (SIDX2, "$data_dir/search2.idx");

### I need to join both files here into @skeyw ###

#my @sidx = <SIDX>;
@sidx2 = <SIDX2>;

#@sidx = grep {$_ ne ""} @sidx;
#@sidx2 = grep {$_ ne ""} @sidx2;

#@skeyw = (\@sidx, \@sidx2);

push (@skeyw,@sidx2);


(@skeyw) = split(/ /,$search_line);

$nrkeywords = 0;
foreach $item (@skeyw){$nrkeywords++;}







# if ($file_locking ne "No"){flock (SIDX, LOCK_SH) or die "Can't set lock for file: $data_dir/search.idx, $data_dir/search2.idx $!\n";}
	while ($line=<SIDX>)
	
	{
	$sline = $line;

		
	foreach $kwr (@skeyw)
		{

		if (($sline =~ /$kwr/i) and ($kwr ne ""))
			{

		$toadk = "true";
			}
			
		}
		

		if ($toadk eq "true")
			{
			$resultline[$icnt] = $line;
			$toadk = false;
			$icnt++;
			}

	}
	
	
	
	
 #if ($file_locking ne "No"){flock (CIT, LOCK_UN);}
close (SIDX);
close (SIDX2);

}