[libfaim.git] / utils / docs / split-man.pl

#!/usr/bin/perl

if ($#ARGV < 0) {
   die "where do I put the results?\n";
}

mkdir $ARGV[0],0777 or die "Can't create $ARGV[0]: $!\n";
$state = 0;
while (<STDIN>) {
    if (/^\.TH \"[^\"]*\" 3 \"([^\"]*)\"/) {
        if ($state == 1) { close OUT }
        $state = 1;
        $fn = "$ARGV[0]/$1.3";
        print STDERR "Creating $fn\n";
        open OUT, ">$fn" or die "can't open $fn: $!\n";
        print OUT $_;
    } elsif ($state != 0) {
        print OUT $_;
    }
}

close OUT;
Commit	Line	Data
be67fdd0	1	#!/usr/bin/perl
	2
	3	if ($#ARGV < 0) {
	4	die "where do I put the results?\n";
	5	}
	6
	7	mkdir $ARGV[0],0777 or die "Can't create $ARGV[0]: $!\n";
	8	$state = 0;
	9	while (<STDIN>) {
	10	if (/^\.TH \"[^\"]\" 3 \"([^\"])\"/) {
	11	if ($state == 1) { close OUT }
	12	$state = 1;
	13	$fn = "$ARGV[0]/$1.3";
	14	print STDERR "Creating $fn\n";
	15	open OUT, ">$fn" or die "can't open $fn: $!\n";
	16	print OUT $_;
	17	} elsif ($state != 0) {
	18	print OUT $_;
	19	}
	20	}
	21
	22	close OUT;
	23