blob: a20dc07fff0161cb1299d0b8c1bc0dc518526a6d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
|
#!/usr/bin/perl
use 5.004;
use strict;
use File::Which ();
use Getopt::Std ();
use vars qw{$VERSION};
BEGIN {
$VERSION = '1.09';
}
# Handle options
my %opts = ();
Getopt::Std::getopts('av', \%opts);
if ( $opts{v} ) {
print <<"END_TEXT";
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 <<"END_TEXT";
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) -> 1 elem
@result = () unless defined $result[0];
foreach my $result ( @result ) {
print "$result\n" if $result;
}
unless ( @result ) {
print STDERR "pwhich: no $file in PATH\n";
exit(255);
}
}
exit(0);
__END__
=pod
=head1 NAME
pwhich - Perl-only `which'
=head1 SYNOPSIS
$ pwhich perl
$ pwhich -a perl # print all matches
$ pwhich perl perldoc ... # look for multiple programs
$ pwhich -a perl perldoc ...
=head1 DESCRIPTION
`pwhich' is a command-line utility program for finding paths to other
programs based on the user's C<PATH>. It is similar to the usualy Unix
tool `which', and tries to emulate its functionality, but is written
purely in Perl (uses the module C<File::Which>), so is portable.
=head2 Calling syntax
$ pwhich [-a] [-v] programname [programname ...]
=head2 Options
=over
=item -a
The option I<-a> will make C<pwhich> print all matches found in the
C<PATH> variable instead of just the first one. Each match is printed
on a separate line.
=item -v
Prints version (of C<File::Which>) and copyright notice and exits.
=back
=head1 SUPPORT
Bugs should be reported via the CPAN bug tracker at
L<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=File-Which>
For other issues, contact the maintainer.
=head1 AUTHOR
Adam Kennedy E<lt>adamk@cpan.orgE<gt>
Per Einar Ellefsen E<lt>pereinar@cpan.orgE<gt>
Originated in F<modperl-2.0/lib/Apache/Build.pm>. 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<File::Which>.
Version 0.04 had some significant platform-related changes, taken from
the Perl Power Tools C<`which'> implementation by Abigail with
enhancements from Peter Prymmer. See
L<http://www.perl.com/language/ppt/src/which/index.html> 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<perl>, L<File::Which>, L<which(1)>
=cut
|
