| Server IP : 216.92.14.13 / Your IP : 216.73.216.171 Web Server : Apache System : Linux vps4089.pairvps.com 5.15.0-190-generic #200-Ubuntu SMP Fri Aug 7 15:06:04 UTC 2026 x86_64 User : rmlac2fmr ( 1040637) PHP Version : 8.2.32 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : ON Directory : /usr/local/bin/ |
Upload File : |
#!/usr/local/bin/perl -w
# $Id: pod2xml,v 1.2 2000/11/27 11:39:06 matt Exp $
=pod
=head1 NAME
pod2xml - convert POD to XML
=head1 SYNOPSIS
pod2xml [--encoding foobar] [infile [outfile]]
=head1 DESCRIPTION
Takes the file specified on the command line and converts its POD
contents to XML.
=head1 SEE ALSO
L<Pod::Parser>, L<Pod::XML>
=cut
use Pod::XML;
use Getopt::Long;
my $encoding;
GetOptions ( "encoding=s" => \$encoding );
my %options;
$options { 'Encoding' } = $encoding if $encoding;
my $parser = Pod::XML->new ( %options );
if ( @ARGV )
{
$parser->parse_from_file ( @ARGV );
}
else
{
$parser->parse_from_filehandle ( \*STDIN );
}