Help for this page

Select Code to Download


  1. or download this
    if(/>(.*)/){if(defined $list{$1}){print $_. "\n" . $hash1{$list{$1}} .
+ "\n"; $x = 1}else{$x = 0}}
  2. or download this
    print $_. "\n" . $hash1{$list{$1}} . "\n";
  3. or download this
    if(/>(.*)/){if(defined $list{$1}){print $_. "\n" . $hash1{$list{$1}} .
+ "\n"; $x = 1}else{$x = 0}}
  4. or download this
    if (/>(.*)/) {
    if (defined $list{$1}) {
...
        $x = 0;
    }
}
  5. or download this
    print $_, "\n", $hash1{$list{$1}}, "\n";