Help for this page

Select Code to Download


  1. or download this
         my $type;
     if ($B1=~ /^\*/ || $B2=~ /^\*/) {
...
     } else {
       $type = "I";
     }
  2. or download this
         my $type = $B1 =~ /^\*/ || $B2 =~ /^\*/ ? "S" : "I";
  3. or download this
         my $type = grep(/^\*/, $B1, $B2) ? "S" : "I";