Thank you, that solved the problem, but only partly I'm afraid. Problem
is that the lines need to be formatted in a certain way, so that one
line looks exactly like this:
ATOM 1 N ALA 1 41.744 64.901 30.842 1.00 47.38
2CDV 83
Is there a way to combine the code below with format specifiers to
produce the above text?
Cheers
/Per
As always, TMTOWTDI:
you can remove the newlines from every field and print it plus a
space, and only print newlines before printing the ATOM field
(remember to put the extra print at the end)
while (<>) {
chomp;
print "\n" if /^ATOM/ and $. != 1;
print "$_ ";
}
print "\n";
I am certain other people could come up with different solutions.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
