Perl - string is in array question

[chienbinhbattu]

This is dead simple in PHP but I'm doing a small script in perl, and simple perl

Code:

#I have 2 arrays with very similar content

#@pids

#@outs

#I need to know which values don't exist in the other array



print "Orphaned Processes\n";

foreach $pid (@pids){

  #$found = grep/$pid/@outs;

  $found = grep(/$pid/,  @outs);

  if ($found > 0)

  {

     print "proc: $pid\n";

  }

}



print "Orphaned Out Files\n";

foreach $thisout (@outs){

  $found = grep(/$thisout/, @pids);

  if ($found > 0)

  {

    print "$thisout\n";

  }

}

The grep doesn't seem to be working. Any ideas?



thanks



Sarah

More:

• job quote PHP
• realtime stats
• Make $$$
• converting integers to sequential characters
• [PHP] Time
• PHP Time Offset
• Problem with date format SQL Server+PHP+LINUX
• [PHP] User registration form
• Some nice javascript
• JavaScript & Telnet

[OffenoDeevecy]

I found this page: http://www.comptechdoc.org/independe...unctarray.html



Is exists the right thing to use? Performance isn't really an issue.

[bachkim257]

I havn't had to use perl for a *long* time, but you might want to try this: (Not tested but should work)

Code:

my $found = 0;

# Loop thru @pids

print "Orphaned processes \n";

foreach $pid(@pids){

  $found = 0;

  # For each $pid, loop thru all @outs

  foreach $out(@outs){

    # Does $out contain $pid ?

    if ($out =~ /$pid/) {

      # $out contains $pid

      $found = 1;

    } else {

      # $out does not contain $pid

    }

  }

  if ($found == 0) {

    print "$pid \n";

  }

}