for i in {1..24}
do
perl /home/perl/chr.match.pl chr$i.nonCG.out
echo "chr$i"
date
done

##</code><code>##

system("for i in {1..24}
do
perl /home/perl/chr.match.pl chr$i.nonCG.out
echo "chr$i"
date
done");

##</code><code>##

`for i in {1..24}
do
perl /home/perl/chr.match.pl chr$i.nonCG.out
echo "chr$i"
date
done`;

##</code><code>##

#!/usr/bin/perl -w
# pipe.test.pl
use strict; use warnings;



open(IN, "<$ARGV[0]") or die "error reading file"; 
open(OUT, ">$ARGV[1]") or die "error reading file"; 

while (my $line = <IN>) {

	chomp($line);
	my @split = split("\t", $line);
	
	if ($split[5] == 1) {
		print OUT "$line\n";
	}
}
close IN;
close OUT;

##</code><code>##

chr1	100	159	104	104	1	0.05	+
chr1	100	159	145	145	0	0.04	+
chr1	200	260	205	205	1	0.12	+
chr1	500	750	600	600	1	0.09	+
chr1	800	900	600	600	1	0.09	+

##</code><code>##

chr2	100	200	105	105	1	0.03	+
chr2	100	200	110	110	1	0.08	+
chr2	300	400	350	350	0	0	+