The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
<html><head><title>what</title>
<meta http-equiv="Content-Type" content="text/html; charset=ISO-8859-1" >
</head>
<body class='pod'>
<!--
  generated by Pod::Simple::HTML v3.01,
  using Pod::Simple::PullParser v2.02,
  under Perl v5.008002 at Thu Aug  5 13:56:12 2004 GMT.

 If you want to change this HTML document, you probably shouldn't do that
   by changing it directly.  Instead, see about changing the calling options
   to Pod::Simple::HTML, and/or subclassing Pod::Simple::HTML,
   then reconverting this document from the Pod source.
   When in doubt, email the author of Pod::Simple::HTML for advice.
   See 'perldoc Pod::Simple::HTML' for more info.

-->

<!-- start doc -->
<a name='___top' class='dummyTopAnchor' ></a>

<h1><a class='u' href='#___top' title='click to go to top of document'
name="NAME"
>NAME</a></h1>

<p>what - extract version information from a file</p>

<h1><a class='u' href='#___top' title='click to go to top of document'
name="SYNOPSIS"
>SYNOPSIS</a></h1>

<p>what [ <code lang='und' xml:lang='und'>-s</code> ] filename ...</p>

<h1><a class='u' href='#___top' title='click to go to top of document'
name="DESCRIPTION"
>DESCRIPTION</a></h1>

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

<h2><a class='u' href='#___top' title='click to go to top of document'
name="OPTIONS"
>OPTIONS</a></h2>

<p><b>-</b><b>s</b> Stop after the first occurrence of the pattern.</p>

<h1><a class='u' href='#___top' title='click to go to top of document'
name="ENVIRONMENT"
>ENVIRONMENT</a></h1>

<p>The working of <b>what</b> is not influenced by any environment variables.</p>

<h1><a class='u' href='#___top' title='click to go to top of document'
name="EXAMPLES"
>EXAMPLES</a></h1>

<p>If a Perl program test1.pl contains:</p>

<pre lang='und' xml:lang='und'>  my $REV = &#39;@(# ) $Revision: 1.3 ...</pre>

<p>and a C program test2.c contains:</p>

<pre lang='und' xml:lang='und'>  char rcsid[] = &#34;@(# ) $Revision: 1.15 ....</pre>

<p>and the C program is compiled to a.out...</p>

<p>The command:</p>

<p>prompt%&#62; what test1.pl test2.c a.out</p>

<p>produces:</p>

<p><b>test1.pl:</b> <b>$Revision</b><b>: 1.3 $&#39;;</b></p>

<p><b>test2.c:</b> <b>$Revision</b><b>: 1.15 $&#34;;</b></p>

<p><b>a.out;</b> <b>$Revision</b><b>: 1.15 $</b></p>

<h1><a class='u' href='#___top' title='click to go to top of document'
name="BUGS"
>BUGS</a></h1>

<p><b>what</b> has no known bugs.</p>

<h1><a class='u' href='#___top' title='click to go to top of document'
name="REVISION_HISTORY"
>REVISION HISTORY</a></h1>

<p>$Log: what.schumacks.html,v $
<p>Revision 1.3  2004/08/05 14:24:31  cwest
<p>cleanup, new version number on website
<p> Revision 1.1 2004/07/23 20:10:21 cwest initial import Revision 1.2 1999/03/28 06:28:47 schumacks Handles binary files better</p>

<p>Revision 1.1 1999/03/23 10:57:39 schumacks Initial revision</p>

<p>$Revision: 1.3 $</p>

<h1><a class='u' href='#___top' title='click to go to top of document'
name="AUTHOR"
>AUTHOR</a></h1>

<p>This Perl implementation of <b>what</b> was written by Ken Schumack schumacks@att.net</p>

<h1><a class='u' href='#___top' title='click to go to top of document'
name="COPYRIGHT_and_LICENSE"
>COPYRIGHT and LICENSE</a></h1>

<p>This program is copyright by Ken Schumack 1999.</p>

<p>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.</p>

<!-- end doc -->

</body></html>