suppose u have a file 
1  0.4 2 
1  0.2  -5  
1  0.1  -18  
1  0.11 7  
0 0.13  10 
0  0.22  11
[download]

 
 From the  second column and third column , u want to show at differen
+t intervals keeping second  column fixed  and change the interval in 
+the third column. 
Like at less than 0.01 from the scond column and <9 and <8 how many nu
+mbers are there in one output 
then again keeping 0.01 same as above and then <8 and >7 how many numb
+ers ...respectively 
 Then change the interval from less than 0.01 to >0.01 and less tahn 0
+.02 in the second column and again start from the third column with  
+<9 and >8 respectively
[download]

I have written the code

 
#!/usr/bin/perl -w


open (FILE,"$ARGV[0]") or die;
open (WRITE,">ca_0.01_1.txt");
@list =<FILE>;
close (FILE);
my $f =join ("",@list);

my @t = split ("\n",$f);

foreach (@t) {

my @x = split("\t",$_);

 if(($x[1]<=0.01) && ($x[0]=="0"))   {
 next if  ( $x[2]>=-8);
 next if  ($x[2]<-9);
#next if ($x[0]!=0);
#next if ($x[0]!=1);
print WRITE @x,"\n";

}
}
close (WRITE);
exit;
[download]

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.