blob: e5afc5aff3067fbfb93aa8662fa3e51a08f476fb (
plain)
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
|
#!/usr/bin/env perl
use warnings;
use strict;
use Socket;
my $host = "127.0.0.1";
my $port = 56789;
my $input = shift;
open(INPUT, "< $input") or die "Can't open input file $input\n";
socket(SOCKET,PF_INET,SOCK_STREAM,(getprotobyname('tcp'))[2])
or die "Can't create a socket $!\n";
connect(SOCKET, pack_sockaddr_in($port, inet_aton($host)))
or die "Can't connect to port $port! \n";
print SOCKET "POST /symbols HTTP/1.0\r\n\r\n";
while (my $line = <INPUT>) {
print SOCKET $line;
}
SOCKET->autoflush(1);
shutdown(SOCKET, 1);
close(INPUT);
while (my $line = <SOCKET>) {
print $line;
}
close(SOCKET);
|
