File: css3-modsel-28c.pl-draft

package info (click to toggle)
thunderbird 1%3A60.9.0-1~deb10u1
  • links: PTS, VCS
  • area: main
  • in suites: buster
  • size: 2,339,424 kB
  • sloc: cpp: 5,457,040; ansic: 2,360,385; python: 596,167; asm: 340,963; java: 326,296; xml: 258,830; sh: 84,445; makefile: 23,701; perl: 17,317; objc: 3,768; yacc: 1,766; ada: 1,681; lex: 1,364; pascal: 1,264; cs: 879; exp: 527; php: 436; lisp: 258; ruby: 153; awk: 152; sed: 53; csh: 27
file content (32 lines) | stat: -rw-r--r-- 1,018 bytes parent folder | download | duplicates (6) 
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
 
#!/usr/bin/perl -wT

print "<div xmlns=\"http://www.w3.org/1999/xhtml\">\n";
nest(0, 5, 5, 'span');
print "</div>\n";

:nth-child(-1n+6) :nth-child(-2) :nth-child(-2n-2)

sub nest {
    my($indent, $remaining, $count, $element, @position) = @_;
    ++$indent;
    --$remaining;
    for (my $index = 0; $index < $count; ++$index) {
        if ($remaining > 1) {
            print((' ' x $indent) . "<$element>\n");
            nest($indent, $remaining, $count, $element, @position, $index);
            print((' ' x $indent) . "</$element>\n");
        } elsif ($remaining) {
            print((' ' x $indent) . "<$element> ");
            nest($indent, $remaining, $count, $element, @position, $index);
            print "</$element>\n";
        } else {
            my $class = tryToMatch(\@position, [nthChild(-1, 6), nthChild(0, -2), nthChild(-2, -2)]) ? 'match' : 'nomatch';
            print "<$element class="$class">Test</$element> ";
        }
    }
}

sub nthChild {
    my($position, $counts) = @_;
    if
}