remileduc / sherver Goto Github PK

Contributors

Stargazers

Forkers

cayetano anusorn arturrocha vlasky fizek dut3062796s elchappo ianfixes smartmanru hschwane

#!/usr/bin/perl
use strict;

# print piped text or a list of files
# using HTTP Transfer-Encoding: chunked

sub http_chunk {
    my $fh = $_[0];
    my $buf;
    my $last_size;
    while (($last_size = read($fh, $buf, 131072)) gt 0) {
        printf("%x\r\n%s\r\n", $last_size, $buf);
    }
}

if (scalar(@ARGV) gt 0) {
    for my $f (@ARGV) {
        my $fh;
        open($fh, "<", $f);
        binmode($fh);
        http_chunk($fh);
    }
}
else {
    binmode(STDIN);
    http_chunk(*STDIN);
}
printf("0\r\n\r\n");