/usr/bin/pfcat is in pmtools 2.0.0-2.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
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 | #!/usr/bin/env perl
# pfcat - cat out function definitions from perlfunc
#
# this is a command of its own so it can find the right version
# ------ pragmas
use strict;
use warnings;
our $VERSION = '2.0.0';
# ------ define variable
my @options = (); # list of podgrep options
@options = ();
while ($ARGV[0] =~ /^-/) {
push @options, shift @ARGV;
}
die "usage: $0 function\n" unless @ARGV;
system "$^X -S podgrep -h @options '@ARGV' `$^X -S podpath perlfunc`";
exit ($? != 0);
__END__
=head1 NAME
pfcat - grep out function definitions from perlfunc
=head1 DESCRIPTION
This program uses I<podgrep> program to search your configuration's
L<perlfunc> for function definitions. It honors a B<-f> flag to
format through I<pod2text> and a B<-p> flag to send the output
through the pager. (Actually, it just passes these to I<podgrep>.)
=head1 EXAMPLES
$ pfcat seek
(find all seek functions (including sysseek))
$ pfcat -pf sprintf
(sprintf function is formatted and sent to pager)
$ pfcat -f '\bint\b'
/usr/local/devperl/lib/5.00554/pod/perlfunc.pod chunk 506
int EXPR
int
Returns the integer portion of EXPR. If EXPR is omitted, uses
`$_'. You should not use this for rounding, because it truncates
towards `0', and because machine representations of floating point
numbers can sometimes produce counterintuitive results. Usually
`sprintf()' or `printf()', or the `POSIX::floor' or `POSIX::ceil'
functions, would serve you better.
You can also run this using alternate perl binaries, like so:
$ oldperl -S pfcat open
....
=head1 SEE ALSO
podgrep(1)
=head1 AUTHORS and COPYRIGHTS
Copyright (C) 1999 Tom Christiansen.
Copyright (C) 2006-2014 Mark Leighton Fisher.
=head1 LICENSE
This is free software; you can redistribute it and/or modify it
under the terms of either:
(a) the GNU General Public License as published by the Free
Software Foundation; either version 1, or (at your option) any
later version, or
(b) the Perl "Artistic License".
(This is the Perl 5 licensing scheme.)
Please note this is a change from the
original pmtools-1.00 (still available on CPAN),
as pmtools-1.00 were licensed only under the
Perl "Artistic License".
|