Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
use strict;
...
A  83    GLU       B  90    GLU^?
A 163    ARG       B  83    ARG^?
A 222    ARG       B  5     ARG^?
  2. or download this
    Roboticus@Roboticus-PC /robo/Desktop
$ perl 856427.pl
...

Roboticus@Roboticus-PC /robo/Desktop
$
  3. or download this
      my ($i_new, $j_new, $k_new, $l_new, $m_new, $n_new)
    = (split /\s+/,$line)[ -2, -8, -14, -5, -11, -17 ];