Help for this page

Select Code to Download


  1. or download this
    if (grep {$_ eq $zero_arg} @ARRAY) and not grep {$_ eq $sec_arg} @anot
    +herarray){
      doSomething();
    }
    
  2. or download this
    for my $Str ($zero_arg, $sec_arg){
      die "$Str is not in routers.txt" unless grep {$_ eq $Str} @Routers;
    ...
        # so do something
      }
    }
    
  3. or download this
    for my $Str ($zero_arg, $sec_arg){
      die "$Str is not in routers.txt" unless grep {$_ eq $Str} @Routers;
    ...
      # They are both there
      # So do something
    }