Comentar solamente una ampliación a lo indicado en el artículo: que el ejemplo propuesto se basa en extraer la información usando expresiones regulares, mientras que la forma de resolverlo en un módulo como
Bio::Structure::IO::pdb es usando unpack():
Using perl Syntax Highlighting
my $atom_unpack = "x6 a5 x1 a4 a1 a3 x1 a1 a4 a1 x3 a8 a8 a8 a6 a6 x6 a4 a2 a2";Coloreado en 0.003 segundos, usando
GeSHi 1.0.8.4
debido a que el estándar
indica posiciones fijas de los campos.
Es obvio que el uso de
unpack() es mucho mejor (más eficiente), sobre todo cuando tenemos que procesar muchas líneas.
También lo hace así el módulo
Chemistry::File::PDB.