I wrote a program to cut desired size of files but it is not working. I
added that script. If anyone help me, thank you..
Bryce
use POSIX; # for ceil
# # # # # # #
print "Please type filename of the DNA sequence data : ";
$filename = <STDIN>;
chomp $filename;
open FILE, $filename;
@dna = <FILE>;
# # # # # # #
print "Pls enter max file size (KB): ";
$size = <STDIN>;
chomp $size;
# # # # # # #
# $dna = join //, @dna;
# $dna =~ s/[\s\n]//g;
# $dna =~ s/[1]//g;
# @dna = split //, $dna;
# # # # # # #
my $len = scalar @dna;
my $unit = ceil($len / ($size*1000));
# # # # # # #
my $j = my $x = 0;
for ($x = 1; $x = $unit; $x++) {
open (DNA, ">$x.txt") or die "Cannot open $x.txt";
for ($j ; $j < (($size*$x*1000)); $j++) {
print DNA @dna[$j];
}
close (DNA);
}
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
