[Image of Linux]
Linux's Witness Ministry
The Personal Web Pages of Chris X. Edwards

ex-filehandle.pl
-------------------------- 
#!/usr/bin/perl -w

open (DNADATA, "DNAsample.txt");
$DNA= <DNADATA>;
close DNADATA;

open (POSLIST, "datalist.txt");

while (<POSLIST>) {

/^(.*) (\d*) (\d*)/;

print ("Name:",$1, "\n");

print (substr ($DNA, ($2-1) , ($3-$2) ), "\n\n" );

}

--------------------------
Return to Program Examples
This page was created with only free, open-source, publicly licensed software.
This page was designed to be viewed with any browser on any system.
Chris X. Edwards ~ January 2003