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.