Perl/DocsTranslation

#!/usr/local/bin/perl -w

# xpod.pl - extract pod from .pm file
#
# Copyright 2002 perldocjp project <perldocjp@freeml.com>
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License.

use FileHandle;
use strict;

# if no arguments are given, just print usage and exit
if (@ARGV != 1) {
  my $me = $0;
  $me =~ s|.*/||; # get filename
  print "Usage: $me file";
  exit 1;
}

my $file = shift @ARGV;
my $fh = FileHandle->new($file, 'r') or die "Cannot open $file: $!";

# This algorithm came from the perldoc command
my $inpod = 0; # true if processing pod text
while (my $line = <$fh>) {
  $inpod = ($1 ne 'cut') if $line =~ /^=(\w+)/;
  next unless $inpod;

  print $line;
}

$fh->close();

exit;