Re: Reading files into arrays

[N_Dinesh]

Hi,

     Try out this code,

#!/usr/bin/perl

@lines;
$array_counter=0;

open(fd, "file.txt");
$line=<fd>;
while($line) {
if($line =~ /\>gi\|[\d+]/) {
 $line=<fd>;
        @lines[$array_counter++]=$line;
        }
 $line=<fd>;
}
print @lines;
close(fd);

Assume file.txt is the file out here. And @lines will have the in-between
lines...


N.Dinesh



-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]