Help for this page

Select Code to Download


  1. or download this
    @array=split(/-/,$value);
$pdbid=$array[0];
...
$menu2=$array[5];
$menu3=$array[6];
@array=();
  2. or download this
    ($pdbid, $from, $to, $chainid, $menu1, $menu2, $menu3) = split(/-/,$va
+lue);
if($chainid eq "_") {
  $chainid=" ";
}
  3. or download this
            print <<"*END*";
select :$chainid
...
select $from-$to:$chainid
color green
*END*