Help for this page

Select Code to Download


  1. or download this
    @a = grep not exists $in_b{$_}, @a;
@b = grep not exists $in_a{$_}, @b;
  2. or download this
    Not enough arguments for grep at j.pl line 14, near "@a;"
Execution of j.pl aborted due to compilation errors.
  3. or download this
    #!/usr/bin/perl

...

print Dumper(\@a);
print Dumper(\@b);