Chemistry::File::MidasPattern - Wrapper Chemistry::File class for Midas patterns
use Chemistry::File::MidasPattern;
use Chemistry::File::PDB;
# read a molecule
my $mol = Chemistry::MacroMol->read("test.pdb");
# define a pattern matching carbons alpha and beta
# in all valine residues
my $str = ':VAL@CA,CB';
my $patt = Chemistry::MidasPattern->parse($str, format => 'midas');
# Chemistry::Mol->parse($str, format => 'midas') also works
# apply the pattern to the molecule
$patt->match($mol);
# extract the results
for my $atom ($patt->atom_map) {
printf "%s\t%s\n", $atom->attr("pdb/residue_name"), $atom->name;
}
printf "FOUND %d atoms\n", scalar($patt->atom_map);
This is a wrapper class for reading Midas Patterns using the standard Chemistry::Mol I/O interface. This allows Midas patterns to be used interchangeably with other pattern languages such as SMARTS in the context of programs such as mok. All of the real work is done by the Chemistry::MidasPattern manpage.
This module register the 'midas' format with Chemistry::Mol.
0.11
the Chemistry::MidasPattern manpage, the Chemistry::File manpage, the Chemistry::Mol manpage, the Chemistry::MacroMol manpage, mok.
The PerlMol website http://www.perlmol.org/
Ivan Tubert <itub@cpan.org>
Copyright (c) 2005 Ivan Tubert. All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.