Help for this page

Select Code to Download


  1. or download this
     unless (open(INPUT, "$inputfile"))
    {
    print "ERROR: Can't open file for reading : $!\n";

    }
  2. or download this
    # splitting on tab character

...
    my $did2 = $data[1];
    my $score1 = $data[2];
    my $score2 = $data[3];
  3. or download this
    my ( $did1,$did2,$score1,$score2 ) = (split("\t", $_))[0..3];