File: nph-dripfeed.pl.PL

package info (click to toggle)
apache2 2.4.66-2
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 59,324 kB
  • sloc: ansic: 212,315; python: 13,830; perl: 11,307; sh: 7,254; php: 1,320; javascript: 1,314; awk: 749; makefile: 715; lex: 374; yacc: 161; xml: 2
file content (17 lines) | stat: -rw-r--r-- 322 bytes parent folder | download | duplicates (6) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
print "HTTP/1.1 200 OK\r\n";
print "Transfer-Encoding: chunked\r\n";
print "\r\n";

$| = 1;

sub dripfeed {
    my $s = shift;

    while (length($s)) {
        select(undef, undef, undef, 0.2);
        print substr($s, 0, 1);
        $s = substr($s, 1);
    }
}

dripfeed "0005\r\nabcde\r\n1; foo=bar\r\nf\r\n0\r\n\r\n";