Select Code to Download

PDB
PDB::Line
PDB::Line::Atom

($self->{'TYPE'},$self->{'data'}) = unpack("A6 A74", $self->{'string'}
+);
    if($self->{'TYPE'} eq 'ATOM'){
    $self->{'object'} = new PDB::Line::Atom($self->{'data'});
    }

sub new {
    my $class = shift;
...
    ($self->{'AN'}) = unpack("A5", $_[0]);
    print $self->{'AN'}."\n";
}

ATOM    242  CE2 PHE A  16       9.011  14.465 -20.603  1.00  0.00    
+       C

  242  CE2 PHE A  16       9.011  14.465 -20.603  1.00  0.00          
+ C