fork download
copy 
  1. #!/usr/bin/perl
  2.  
  3. @array1 = qw(word_1 word_2 word_3 word_4 word_5);
  4. @array2 = qw(word_1 word_0 word_3 word_7 word_9);
  5.  
  6. print "The first way\n";
  7. my $index = 0;
  8. @result = grep { $_ !~ @array2[$index++] } @array1;
  9. (print "$_\n") foreach @result;
  10.  
  11. print "\n*\t*\t*\n\nThe second way\n";
  12.  
  13. $index = 0;
  14. foreach (@array1) {
  15.     print "$_ != @array2[$index]\n" if ($_ !~ @array2[$index]);
  16.     $index += 1;
  17. }
Success #stdin #stdout 0s 3564KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
The first way
word_2
word_4
word_5

*	*	*

The second way
word_2 != word_0
word_4 != word_7
word_5 != word_9
https://ideone.com/e4hQg7
language:
Perl (perl 5.28.1)
created:
10 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!