Readers: 17
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
#!/usr/bin/perl -w
my $PORT = 8017;
use HTTP::Daemon;
use LWP::UserAgent;
my $proxy = HTTP::Daemon->new( LocalPort => $PORT );
die "@_" unless defined $proxy;
print "Listening on port $PORT\n";
my $ua = LWP::UserAgent->new;
$ua->agent("miniproxy/1.0");
while (my $conn = $proxy->accept) {
while (my $request = $conn->get_request) {
my $response = $ua->simple_request($request);
print $response;
$conn->send_response($response);
}
$conn->close;
}
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
#!/usr/bin/perl -w
my $PORT = 8017;
use HTTP::Daemon;
use LWP::UserAgent;
my $proxy = HTTP::Daemon->new( LocalPort => $PORT );
die "@_" unless defined $proxy;
print "Listening on port $PORT\n";
my $ua = LWP::UserAgent->new;
$ua->agent("miniproxy/1.0");
while (my $conn = $proxy->accept) {
while (my $request = $conn->get_request) {
my $response = $ua->simple_request($request);
$response =~ s/name=\"name\"/name=\name\ value=\"sich verändernder String\"/;
print $response;
$conn->send_response($response);
}
$conn->close;
}
1 2 3
my $content=$response->content(); $content=~ s/name=\"name\"/name=\name\ value=\"sich verändernder String\"/; $response->content($content);