Hi,
At 11:51 AM 3/8/2005 +0100, E.Horn wrote:
Hello! I want to read this file into an array. How can i just get 4, 5, 6,7,8 into an array? And later, how can i get the contents out of this array? 1) 2) 3) 4) 5) 6) 7) 8) 9) 10) 11) ATOM 2909 CG1 VAL B 183 1.130 28.458 104.360 1.00 23.04 C ATOM 2910 CG2 VAL B 183 0.996 29.769 102.236 1.00 24.61 C ATOM 2911 N THR B 184 3.313 31.739 103.453 1.00 25.98 N ATOM 2912 CA THR B 184 3.261 33.012 104.149 1.00 29.31 C ATOM 2913 C THR B 184 1.911 33.642 103.859 1.00 29.26 C ATOM 2914 O THR B 184 1.442 33.626 102.720 1.00 28.75 O regards
How about this if 'VAL B' is single value and one space in between:
#! /usr/bin/perl use strict; use warnings;
while (<DATA>) {
my @array = ((split/\s+/)[3].' '.(split/\s+/)[4], (split/\s+/)[5..8]);
print join ("\t", @array, "\n");
}
__DATA__
ATOM 2909 CG1 VAL B 183 1.130 28.458 104.360 1.00 23.04 C
ATOM 2910 CG2 VAL B 183 0.996 29.769 102.236 1.00 24.61 C
ATOM 2911 N THR B 184 3.313 31.739 103.453 1.00 25.98 N
ATOM 2912 CA THR B 184 3.261 33.012 104.149 1.00 29.31 C
ATOM 2913 C THR B 184 1.911 33.642 103.859 1.00 29.26 C
ATOM 2914 O THR B 184 1.442 33.626 102.720 1.00 28.75 O
Shiping
-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
