Member Avatar for ghosh22

Hii everybody..I have posted a similar question before..but it is slightly changed and I am not finding how to solve it..Please help..
I have a text file with some compound names..now I want a perl program which will scan the whole text file and then if for any entry, C>10 and p<5 found, it'd copy that entry to a new text file.
I have uploaded a sample input text file also.
Thanks in advance...

Compound	H	C	N	O	P	S	Cl	Co	Se	Class
H2O	9	3	7	6	5	0	0	0	0	infected
AAK	10	599	34	745	32	0	0	0	0	non
ABDL	67	345	35	136	76	1	0	0	0	non
AADLx	32	94	90	136	32	0	4	0	0	non
Oxy	65	5	4	16	77	0	0	89	0	non
AKP	69	23	84	80	11	54	0	0	0	infected
NH3	9	8	8	39	8	0	0	0	0	infected
SEQ43	15	562	89	456	65	0	0	0	0	non
Py33	54	31	2	23	23	0	0	0	0	non
SDF45	52	65	11	69	7	89	2	32	0	infected
BLC	88	92	76	45	12	7	0	0	0	non
HCL55	49	41	14	89	3	51	0	0	0	non
HJIK90	98	432	79	76	7	0	0	0	0	non
KKR	23	73	92	21	74	9	8	80	0	infected
DD07	34	75	33	25	5	23	0	0	0	non
ZEE	90	99	57	658	89	6	0	0	0	non
  • 3 Contributors
  • 3 Replies
  • 118 Views
  • 4 Weeks Discussion Span
  • Latest Post Latest Post by richieking
Member Avatar for mitchems 
use strict;
use warnings;

open(FILE,"<example1.txt");
open(OUT,">example2.txt");

my $x=0;
while(<FILE>){
	chomp;
	$x++;
	if($x==1){
		print OUT "$_\n";
		next;
	}
	my ($Compound,$H,$C,$N,$O,$P,$S,$Cl,$Co,$Se,$Class)=split(/\t/);
	if($C>10 && $P<5){
		print OUT "$_\n";
	}
}

close FILE;
close OUT;
Member Avatar for ghosh22

thanks..but one small question? Do you think that the text file I uploaded was properly tab-delimited? If not, how to do so? cheers...

Member Avatar for richieking

Mark post as closed ;)

Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.