Teilen Sie eine Zeile in ihre Komponenten

Question

Ich muss die Zeilen einer Eingabedatei in seine Spalten aufteilen.

ATOM  0 HB3 ALA C 999  28.811 -7.680 12.279 1.00 57.53   H 

ATOM 7637 N PRO C1000  27.299 -5.667 10.647 1.00216.82   N 

Der Code, den ich funktioniert gut haben, solange die 6. Spalte < 1000, oder kürzer als 4 Stellen:

($ATOM, $atom_num, $atom_type, $res, $chain, $res_num) = split(" ", $pdb) 

Sobald jedoch Spalte 6 1000 erreicht, wird es nicht mehr diskriminiere die zwei Spalten. Ich bin kein Experte in Perl, aber der Code, mit dem ich es zu tun habe, ist perl, also muss ich herausfinden, wie man diese z. durch die Anzahl der Ziffern jeder Spalte. Irgendwelche Vorschläge?

Answer 1

Ich löste es mit Entpacken und Definieren der Länge jeder Spalte. $ format = 'A6 A6 A5 A4 A1 A5'; ($ ATOM, $ atom_num, $ atom_type, $ res, $ kette, $ res_num) = entpacken ($ format, $ pdb);