None title

#!/usr/bin/perl

use Socket;

sub parseURL{

    my ($url)=@_;

    return $url=~m/(https?):\/\/([^\/]*)(.*)/;

}

sub chunkDecode{

    my ($chunkdata)=@_;
    my $chunk_header=0;
    my $unchunk="";

    while(1){

        if($chunk_header==0){

            if($chunkdata=~/([0-9a-fA-F]+)[ \t]*\n/g){

                $offset=pos($chunkdata);
                $chunksize=hex($1);

                if($chunksize==0){

                    goto end_of_chunk_data;

                }

                $unchunk.=substr($chunkdata,$offset,$chunksize);

                $chunkdata=substr($chunkdata,$offset+$chunksize);
                $chunkheader=1;

            }else{

                goto end_of_chunk_data;

            }

        }else{

            if($chunkdata=~/\n([0-9a-fA-F]+)[ \t]*\n/g){

                $offset=pos($chunkdata);
                $chunksize=hex($1);

                if($chunksize==0){

                    goto end_of_chunk_data;

                }

                $unchunk.=substr($chunkdata,$offset,$chunksize);

                $chunkdata=substr($chunkdata,$offset+$chunksize);

            }else{

                goto end_of_chunk_data;

            }

        }

    }

    end_of_chunk_data:

    return $unchunk;

}

$url="http://phpschool.com/zbbs/zboard.php?id=talkbox&page=1&sn1=&divpage=4&sn=off&ss=on&sc=on&select_arrange=headnum&desc=asc&no=22860";

($protocol,$host,$uri)=parseURL($url);

$port="80";

#create socket descriptor
socket(SH,PF_INET,SOCK_STREAM,getprotobyname('tcp')) || die $!;

#connecting to server
my $sin=sockaddr_in($port,inet_aton($host));
connect(SH,$sin) || die $!;

my $fh = select SH;
$| = 1;
select $fh;

$body="GET ".$uri." HTTP/1.1\nConnection: close\nHost: ".$host."\n\n";

syswrite(SH,$body,length($body));

while(($len=sysread(SH,$read_buffer,256)>0)){

        $content.=$read_buffer;

}

$content=~/\n\n/g;
$offset=pos($content);

$body=substr($content,$offset);

print chunkDecode($body);

close(SH);