[Pdx-pm] read and concatenate two lines at a time

[Thomas J Keller]

Greetings,
I need to concatenate every two consecutive lines from a large data 
file. Is there an easy way to do this?

Below is the snippet of what I tried, but it gives errors sometimes - 
if anyone can point out why it works for some lines and not for others, 
I'd appreciate that too.
Thanks,
Tom
########################
while (<>){
	chomp;
	my $line = $_;
	$line =~ s/\t\./\t1/g;				## substitute "1" for "." values
	if ( $line =~ /^\w\w\d\d\d\d/) {
		push @evens, $line;
	} else {
		push @odds, $line;
	}
}

foreach (0 .. $#evens) {
	push @unsorted, $evens[$_].$odds[$_];
}

__DATA__
	Strain	N	Mean	Stdev	SEM		Sig. (2-tail)	Mean Diff	Std. Error Diff	95% 
Confidence Interval of the 
Difference	NG1960	MS11	2	0.8623	0.02024	0.01431	Equal variances 
assumed	0.459	0.0227	0.02771	-0.05426	0.0996
	N400	4	0.8396	0.03505	0.01752	Equal variances not 
assumed	0.379	0.0227	0.02263	-0.04325	0.08859
NG1961	MS11	4	0.9668	0.03103	0.01552	Equal variances 
assumed	0.021	-0.1052	0.03402	-0.18841	-0.02192
	N400	4	1.072	0.06055	0.03027	Equal variances not 
assumed	0.031	-0.1052	0.03402	-0.1958	-0.01453
NG1962	MS11	4	0.9962	0.03424	0.01712	Equal variances 
assumed	0.128	0.0566	0.03214	-0.022	0.13527
	N400	4	0.9395	0.0544	0.0272	Equal variances not 
assumed	0.138	0.0566	0.03214	-0.0257	0.13898
NG1963	MS11	4	1.0225	0.00938	0.00469	Equal variances 
assumed	0.084	0.1075	0.05185	-0.0194	0.23435
	N400	4	0.9151	0.10328	0.05164	Equal variances not 
assumed	0.128	0.1075	0.05185	-0.05603	0.27098
NG1964	MS11	4	0.8707	0.08042	0.04021	Equal variances 
assumed	0.179	0.1234	0.08369	-0.06958	0.3164
	N400	6	0.7473	0.15171	0.06193	Equal variances not 
assumed	0.134	0.1234	0.07384	-0.04765	0.29448
NG1965	MS11	4	0.7567	0.06185	0.03092	Equal variances 
assumed	0.012	0.138	0.03906	0.04241	0.23357
	N400	4	0.6187	0.04774	0.02387	Equal variances not 
assumed	0.014	0.138	0.03906	0.0409	0.23508
NG1966	MS11	4	0.7862	0.04811	0.02405	Equal variances 
assumed	0.003	0.1633	0.03318	0.08216	0.24453
	N400	4	0.6228	0.0457	0.02285	Equal variances not 
assumed	0.003	0.1633	0.03318	0.08211	0.24458
NG1966.1	MS11	4	1.0201	0.02805	0.01403	Equal variances 
assumed	0.003	0.0866	0.01769	0.04334	0.12993
	N400	4	0.9335	0.02157	0.01079	Equal variances not 
assumed	0.003	0.0866	0.01769	0.04264	0.13063
NG1967	MS11	4	0.7306	0.1028	0.0514	Equal variances 
assumed	0.329	0.0568	0.05344	-0.07399	0.18754
	N400	4	0.6738	0.02925	0.01463	Equal variances not 
assumed	0.356	0.0568	0.05344	-0.10071	0.21426
NG1967.1	MS11	4	0.8935	0.06171	0.03085	Equal variances 
assumed	0.976	-0.0011	0.03541	-0.08776	0.08551
	N400	4	0.8946	0.03473	0.01737	Equal variances not 
assumed	0.976	-0.0011	0.03541	-0.09374	0.09149
NG1968	MS11	4	1.011	0.03947	0.01974	Equal variances 
assumed	0.014	0.0853	0.02483	0.02456	0.1461
	N400	4	0.9257	0.03015	0.01507	Equal variances not 
assumed	0.015	0.0853	0.02483	0.02353	0.14713
NG1969	MS11	0	.	.	.						
	N400	0	.	.	.						
NG1970	MS11	4	0.787	0.03551	0.01775	Equal variances 
assumed	0.007	0.0987	0.02465	0.03836	0.15901
	N400	4	0.6883	0.03422	0.01711	Equal variances not 
assumed	0.007	0.0987	0.02465	0.03834	0.15903
NG1971	MS11	4	0.9793	0.10704	0.05352	Equal variances 
assumed	0.461	0.0426	0.05412	-0.08986	0.17502
	N400	4	0.9367	0.01612	0.00806	Equal variances not 
assumed	0.487	0.0426	0.05412	-0.12552	0.21068
NG1972	MS11	4	1.007	0.07756	0.03878	Equal variances 
assumed	0.051	0.1047	0.04299	-0.00054	0.20984
	N400	4	0.9024	0.03711	0.01856	Equal variances not 
assumed	0.067	0.1047	0.04299	-0.01144	0.22074



-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: text/enriched
Size: 3568 bytes
Desc: not available
Url : http://mail.pm.org/archives/pdx-pm-list/attachments/20041203/1208ec4e/attachment.bin