13

Problem with my perl script

view full story
linux-howto

http://www.unix.com – hiii alll i wrote a prgm which would take position and strand from file 1 and tries to locate a string 250 characters ahead/before that position in anothe file (based on strand 0 or 1) open my $fhConditions, "<", "1.txt" or die "Epic Fail: $!"; open my $fhCharacters, "<", "2.txt" or die "OMG Fail: $!"; my $length = 250; while (my $line = <$fhConditions>) { chomp $line; my ($strand, $chr, $position) = split(' ', $line); $position += $length if $strand == 0; $position -= $length if $strand == 1; s (HowTos)