라인을 구성 요소로 나눕니다.

Question

입력 파일의 행을 해당 열로 분할해야합니다.

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 

나는 작품이 코드 좋은만큼 6 열이 < 1000, 또는보다 짧은 4 자리 숫자로 : 빨리 열 여섯 1000에 도달, 그것은 것 더 이상 그러나

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

두 개의 기둥을 구별하십시오. 나는 펄의 전문가는 아니지만, 내가 다루고있는 코드는 perl이다. 그래서 이것을 나누는 방법을 찾아야한다. 각 열의 자릿수로 제안 사항이 있으십니까?

Answer 1

언팩을 사용하고 각 열의 길이를 정의하여 해결했습니다. $ format = 'A6 A6 A5 A4 A1 A5'; ($ ATOM, $ atom_num, $ atom_type, $ res, $ chain, $ res_num) = unpack ($ format, $ pdb);