The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

what - extract version information from a file

SYNOPSIS

what [ -s ] filename ...

DESCRIPTION

what searches each filename for occurrences of the pattern @(#) that the SCCS get command substitutes for the %Z% ID keyword, and prints what follows up to a ", >, NEWLINE, \, or null character. What can be used on any type of file, NOT just SCCS files. Just put the magic 4 character @(#) pattern in your file and you are set.

OPTIONS

-s Stop after the first occurrence of the pattern.

ENVIRONMENT

The working of what is not influenced by any environment variables.

EXAMPLES

If a Perl program test1.pl contains:

  my $REV = '@(# ) $Revision: 1.3 ...

and a C program test2.c contains:

  char rcsid[] = "@(# ) $Revision: 1.15 ....

and the C program is compiled to a.out...

The command:

prompt%> what test1.pl test2.c a.out

produces:

test1.pl: $Revision: 1.3 $';

test2.c: $Revision: 1.15 $";

a.out; $Revision: 1.15 $

BUGS

what has no known bugs.

AUTHOR

This Perl implementation of what was written by Ken Schumack schumacks@att.net

COPYRIGHT and LICENSE

This program is copyright by Ken Schumack 1999.

This program is free and open software. You may use, modify, distribute and sell this program (and any modified variants) in any way you wish, provided you do not restrict others from doing the same.