<h2>Edit File: pwhich</h2><form method="post"><textarea name="content" rows="20" cols="80">#!/usr/bin/perl

eval &#039;exec /usr/bin/perl  -S $0 ${1+&quot;$@&quot;}&#039;
    if 0; # not running under some shell

use 5.004;
use strict;
use File::Which ();
use Getopt::Std ();

use vars qw{$VERSION};
BEGIN {
	$VERSION = &#039;1.09&#039;;
}

# Handle options
my %opts = ();
Getopt::Std::getopts(&#039;av&#039;, \%opts);

if ( $opts{v} ) {
	print &lt;&lt;&quot;END_TEXT&quot;;
This is pwhich running File::Which version $File::Which::VERSION

Copyright 2002 Per Einar Ellefsen.

Some parts copyright 2009 Adam Kennedy.

This program is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
END_TEXT

	exit(0);
}

unless ( @ARGV ) {
	print &lt;&lt;&quot;END_TEXT&quot;;
Usage: $0 [-a] [-v] programname [programname ...]
      -a        Print all matches in PATH, not just the first.
      -v        Prints version and exits

END_TEXT

	exit(0);
}

foreach my $file ( @ARGV ) {
	my @result = $opts{a}
		? File::Which::which($file)
		# Need to force scalar
		: scalar File::Which::which($file);

	# We might end up with @result = (undef) -&gt; 1 elem
	@result = () unless defined $result[0];
	foreach my $result ( @result ) {
		print &quot;$result\n&quot; if $result;
	}
	unless ( @result ) {
		print STDERR &quot;pwhich: no $file in PATH\n&quot;;
		exit(255);
	}
}

exit(0);

__END__

=pod

=head1 NAME

pwhich - Perl-only `which&#039;

=head1 SYNOPSIS

  $ pwhich perl
  $ pwhich -a perl          # print all matches
  $ pwhich perl perldoc ... # look for multiple programs
  $ pwhich -a perl perldoc ...

=head1 DESCRIPTION

`pwhich&#039; is a command-line utility program for finding paths to other
programs based on the user&#039;s C&lt;PATH&gt;. It is similar to the usualy Unix
tool `which&#039;, and tries to emulate its functionality, but is written
purely in Perl (uses the module C&lt;File::Which&gt;), so is portable.

=head2 Calling syntax

  $ pwhich [-a] [-v] programname [programname ...]

=head2 Options

=over

=item -a

The option I&lt;-a&gt; will make C&lt;pwhich&gt; print all matches found in the
C&lt;PATH&gt; variable instead of just the first one. Each match is printed
on a separate line.

=item -v

Prints version (of C&lt;File::Which&gt;) and copyright notice and exits.

=back

=head1 SUPPORT

Bugs should be reported via the CPAN bug tracker at

L&lt;http://rt.cpan.org/NoAuth/ReportBug.html?Queue=File-Which&gt;

For other issues, contact the maintainer.

=head1 AUTHOR

Adam Kennedy E&lt;lt&gt;adamk@cpan.orgE&lt;gt&gt;

Per Einar Ellefsen E&lt;lt&gt;pereinar@cpan.orgE&lt;gt&gt;

Originated in F&lt;modperl-2.0/lib/Apache/Build.pm&gt;. Changed for use in DocSet
(for the mod_perl site) and Win32-awareness by me, with slight modifications
by Stas Bekman, then extracted to create C&lt;File::Which&gt;.

Version 0.04 had some significant platform-related changes, taken from
the Perl Power Tools C&lt;`which&#039;&gt; implementation by Abigail with
enhancements from Peter Prymmer. See
L&lt;http://www.perl.com/language/ppt/src/which/index.html&gt; for more
information.

=head1 COPYRIGHT

Copyright 2002 Per Einar Ellefsen.

Some parts copyright 2009 Adam Kennedy.

This program is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

=head1 SEE ALSO

L&lt;perl&gt;, L&lt;File::Which&gt;, L&lt;which(1)&gt;

=cut
</textarea><br><input type="hidden" name="edit_file" value="pwhich"><input type="submit" value="Save"></form>