Shell Programming and Scripting

ID   MYPR_HUMAN              Reviewed;         277 AA.
AC   P60201; P04400; P06905; Q502Y1;
DT   01-JAN-1988, integrated into UniProtKB/Swiss-Prot.
DT   23-JAN-2007, sequence version 2.
DT   25-NOV-2008, entry version 62.
DE   RecName: Full=Myelin proteolipid protein;
DE            Short=PLP;
DE   AltName: Full=Lipophilin;
GN   Name=PLP1; Synonyms=PLP;
OS   Homo sapiens (Human).
CC   -!- FUNCTION: Involved in the transport of proteins between the
CC       endosomes and the trans Golgi network (By similarity).
CC   -!- SUBCELLULAR LOCATION: Cell membrane; Lipid-anchor; Cytoplasmic
CC       side (Potential).
CC   -!- TISSUE SPECIFICITY: Ubiquitous.
CC   -!- SIMILARITY: Belongs to the small GTPase superfamily. Rab family.

#!/usr/local/bin/perl

use strict;

my @files;
my $file;
my $IN;

# Create array of files in current directory
my @files = `ls Batch*`;

foreach $file (@files) {
    open ($IN, $file) or die $!;
    my $i = 0;
    while (<$IN>) {
        if (/^(ID   )([A-Za-z0-9_]*)/) {
            print "GENE: $2\n";
        }
        elsif (/(DE   RecName: Full=)(.*);/) {
            print "NAME: $2\n";
        } 
        elsif ((/^(CC   -!- )(FUNCTION:.*)/) || (/(CC   -!- )(TISSUE SPECIFICITY:.*)/)) {
            print $2;
            until (<$IN> =~ /(-!-)/) {
                print $_;
            }
            print "\n";
        }
    }
    close $IN;
}

            print $2;
            my $nxtLine = <$IN>;
            until ($nxtLine =~ /(-!-)/) {
                $nxtLine =~ /CC *(.*)/;
                print $1;
                $nxtLine = <$IN>;