Time for an 2014 update…

2014-01-17 05:32:22 +00:00 · 2014-01-17 05:32:22 +00:00 · 09687c4926
commit 09687c4926
parent 372c577f83
2520 changed files with 34227 additions and 7318 deletions
--- a/Task/Rosetta-Code-Count-examples/Perl-6/rosetta-code-count-examples.pl6
+++ b/Task/Rosetta-Code-Count-examples/Perl-6/rosetta-code-count-examples.pl6
@ -0,0 +1,10 @@
+use LWP::Simple;
+
+my $site = "http://rosettacode.org";
+my $list-url = "/mw/api.php?action=query&list=categorymembers&cmtitle=Category:Programming_Tasks&cmlimit=500&format=xml";
+
+for get("$site$list_url").comb(/'cm' .*? 'title="' <( .*? )> '"'/) {
+    my $slug = .trans(' ' => '_');
+    my $count = +get("$site/wiki/$slug").comb(/'toclevel-1'/);
+    say "$_: $count examples";
+}