Help for this page

Select Code to Download


  1. or download this
    open(DAT,'<',"./useful_dat.tab")||die "Canot open file\n";
my @file=<DAT>;
close DAT;
shift @file;##remove header
foreach my $line(@file){
  2. or download this
    open(DAT,'<',"./useful_dat.tab")||die "Canot open file\n";
<DAT>;                     # discard a line
while(my $line = <DAT>){   #loop through the rest