1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
|
#
# This file is part of Redis
#
# This software is Copyright (c) 2015 by Pedro Melo, Damien Krotkine.
#
# This is free software, licensed under:
#
# The Artistic License 2.0 (GPL Compatible)
#
use strict;
use warnings;
use 5.10.1;
my %exclude = map { $_ => 1 }
qw(publish subscribe unsubscribe psubscribe punsubscribe );
my %hash;
my (@groups, $group, $command, @args, $text);
my ($in_section, $in_nav, $in_args);
while (my $line = <>) {
chomp $line;
$line =~ m|<section id="commands">|
and $in_section=1, next;
$in_section && $line =~ m|<nav>|
and $in_nav=1, next;
$in_section && $in_nav && $line =~ m|<a href="#([^"]+?)">(.+?)</a>|
and push(@groups,[$1, $2]), next;
$in_section && $in_nav && $line =~ m|</nav>|
and $in_section = 0, $in_nav = 0, next;
$line =~ m|li data-group="(.+?)".+?">|
and $group = $1,
next;
$line =~ m|href="/commands/(.+?)">.+?</a>|
and $command=$1, @args=(), next;
$line =~ m|<span class="args">|
and $in_args = 1, next;
$in_args && $line =~ m|</span>|
and $in_args = 0, next;
$in_args
and push(@args, $line =~ s/^\s+|\s+$//rg),
next;
( ($text) = $line =~ m|<span class="summary">(.+?)</span>| )
&& ! $exclude{$command}
and $hash{$group}{$command =~ s/-/_/gr} = {
text => $text,
synopsis => '$r->' . ($command =~ s/-/_/gr). '('
. join(', ', @args)
. ')',
ref => $command,
},
@args = ();
}
my $pod = '';
foreach (@groups) {
my ($group, $name) = @$_;
$pod .= "=head1 " . uc($name) . "\n\n";
foreach my $command (sort keys %{$hash{$group}}) {
my %h = %{$hash{$group}{$command}};
$pod .= "=head2 $command\n\n"
. " $h{synopsis}\n\n"
. $h{text} . " (see L<https://redis.io/commands/$h{ref}>)\n\n";
}
}
say $pod;
|
