Shell Programming and Scripting

hi

i want check for PVCS header in file if its present then check if its in proper format or not i want to do this is in perl on windows.

this is what i am doing :

1 . open file
2 . check for "PVCS information" if found then store the line no to $line var.
3 . check for "sccs" header
4 . if sccs header found then exit
5. close file
6 . if PVCS header found then call another subroutine with $line.
6.1 . again open the file skip lines till $line
6.2 . add 1 to $line and check for desired word
add 2 to $line and check for next word
.
.
6.3 . if header is in proper format then set a flag for each if statement and if all are set then return 0 or return 1 .
6.4 . close file.

now i am ready with small script for this ( which is in my office i will post it tomorrow ) but is there any better way of checking if PVCS header is in proper format or not ??

PVCS header sample :

Code:

     *** Start of PVCS information ***
     * $Workfile : 
     * $Author :
     * $Date :
     * $Log :
     ***********************