Beefy Boxes and Bandwidth Generously Provided by pair Networks Bob
The stupid question is the question not asked
 
PerlMonks  

tritan's scratchpad

by tritan (Sexton)
on Jan 12, 2010 at 19:51 UTC ( #817035=scratchpad: print w/ replies, xml ) Need Help??

#!/bin/perl -w use strict; my $file1 = "../../../180_top_height_snps_annotatedwextra.afrd.efrd.al +l.lsrd.txt"; my $file2 = "../../../EXETER-HEIGHT-ALL-MAC3-20091217-stderr.1.rsIDsal +l.nor2.ma.afrd.efrd.lsrd.tbl"; my @badones; my @array1; my %hash2; open (INPUT1, $file1) || die "Cannot open $file1"; while (<INPUT1>) { my @infoparse = split(/\s+/); chomp (@infoparse); push (@array1, \@infoparse); } close(INPUT1); @array1 = sort {$array1[$a]->[3] <=> $array1[$b]->[3]} (@array1);
Log In?
Username:
Password:

What's my password?
Create A New User
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others perusing the Monastery: (9)
As of 2014-04-19 18:43 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    April first is:







    Results (483 votes), past polls