Rosetta Code/Count examples: Difference between revisions
m
→{{header|Perl}}: switched library
m (→{{header|Sidef}}: updated output) |
SqrtNegInf (talk | contribs) m (→{{header|Perl}}: switched library) |
||
Line 1,824:
=={{header|Perl}}==
{{libheader|HTTP:Tiny}}
<lang Perl>use
my $site = "http://rosettacode.org";
my $list_url = "/mw/api.php?action=query&list=categorymembers&cmtitle=Category:Programming_Tasks&cmlimit=500&format=xml";
for ($response->{content} =~ /cm.*?title="(.*?)"/g) {
(my $slug = $_) =~ tr/ /_/;
my $
my $count = () = $response->{content} =~ /toclevel-1/g;
print "$_: $count examples\n";
}</lang>
Line 1,848 ⟶ 1,851:
say "$_->{title}: $count examples";
});</lang>
=={{header|Perl 6}}==
{{works with|Rakudo|2018.12}}
| |||