Perl 6 table index
This is the POD version of $url
AUTHORS
This POD was generated by Ahmad M. Zawawi <ahmad.zawawi\@gmail.com> via the tool: http://svn.perlide.org/padre/trunk/Padre-Plugin-Perl6/parse_perl6_table_index.pl
For authors of the original wiki place, see: http://www.perlfoundation.org/perl6/index.cgi?action=revision_list;page_name=perl_table_index
LICENSE
Copyright (c) 2006-2009 under the same (always latest) license(s) used by the Perl 6 /src branch of the Pugs trunk.
Table index
POD
my @lines = split /\n/, $res->content;
my %help = ();
foreach my $line (@lines) {
chomp $line;
if($line =~ /<li><strong>(.+?)<\/strong>(.+?)<\/li>/) {
my ($item, $item_description)= (_to_text($1), _to_text($2) );
$item_description =~ s/^\s+//;
if($help{$item}) {
$help{$item} .= "\n=item $item_description\n";
} else {
$help{$item} = "=item $item_description\n";
}
}
}
foreach my $item (sort keys %help) {
$pod .= "=head2 C<<< $item >>>\n\n=over\n\n" . $help{$item} . "\n=back\n\n";
}
return $pod;
}
my $pod = _perl6_table_index_to_pod 'http://www.perlfoundation.org/perl6/index.cgi?perl_table_index'; my $filename = 'perl6_table_index.pod'; print "Writing to $filename\n"; open FILE, ">$filename" or die "Cannot open $filename for writing\n"; print FILE $pod; close FILE;
print "\n\n----- FINISHED -----\n\n";
# Copyright 2008-2009 Ahmad M. Zawawi and Gabor Szabo. # LICENSE # This program is free software; you can redistribute it and/or # modify it under the same terms as Perl 5 itself.