Re: intersection of scalar with 1D array and 2D array Matlab=>Perl

[NetWallah]

A few modules that are likely to do the job well:

• List::Compare
• Quantum::Superpositions (if you like eigen states)
• Set::Array

Other than that, some perlish syntax correction (NO logic correction) to your code:

while ( defined (my $scalar=<$TEST>) ) # This will accommodate the cas
+e when $seclar is Zero
{
  chomp($scalar);
  my ( $a,  $b ) =firstidx { $_ == $scalar } @arrayPFA; # $a and $b ar
+e NOT good names - they have special meanings in perl
  if(!defined $a)
  {
    $data=$arrayPFA[$b];
  }
  elsif(if any { ! defined($scalar) } @arrayT;) # No idea what is inte
+nded here...
  {
    $data=1.0;
  }
  else
  {
    $data=0.0;
  };
};

[choroba]

This will accommodate the case when $seclar is Zero

Not needed:

$ perl -MO=Deparse -e 'while (my $scalar = <$TEST>) {1}'
while (defined(my $scalar = <$TEST>)) {
    do {
        '???'
    };
}
-e syntax OK

Relevant: To Kill a Meme: while(defined($line = <>))

[NetWallah]

Correct, scary, and certainly not obvious.

Thanks for the education.

More discussion on this issue is at stack overflow.

[f77coder]

Thanks for suggestion.

I tried List::Compare and most of the flavors but they all bomb because I'm comparing a scalar to an array. All want 1D arrays to compare. I'll have a look at the others.