Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations dencom on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
-
Sorting list problems
I am having problems sorting a fairly simple list. Here is the list: >NM_001100917.1 >NM_001100917.1 1019 100 1019 1 1 >NM_020388.3 >NM_001100917.1 0 0 0 . . >NM_001001395.1 >NM_001100917.1 18 95 20 647 2404 >NM_001048210.1 >NM_001100917.1 0 0 0 . . >NM_033157.2 >NM_001100917.1 18 95 20... -
Perl performance issues
I am trying to run a program that takes two fasta sequencing files and compares them. the program has to compare 38,000 file together to make 1 billion comparisons. when i run the program it does about 12,000 comparisons a minute. this would take 60 days to complete! i am noticing that the... -
variable question
what is the hierarchy of variable creation? if i create a variable inside an if statement using "my" is that variable only good in the if statement? example if (condition) { my ($var1, $var2); } -
problems redirecting from system command
i am trying to call a system command but can't redirect to a file. #system ("/home/program", ">", "results/compared.txt"); it thinks the > is a parameter and won't run the program. another possibility is using backticks `/home/program > compared.txt`; but i dont know how to to use variables... -
Moving data into files
i am having problems with breaking a file into several files. here is my code. my $source = $ARGV [0]; my $i = 0; open STDIN, $source or die "Can't read source file $source: $! \n"; while ($line = <STDIN>) { $x = substr( $line, 3, 1); if ($x =~ /^|/){ $y = substr( $line, 18, 13)...
