---
title: "Identifiera sig(user-agent)!"
type: "forum-thread"
url: "https://www.webforum.nu/amne/programmering/19195-identifiera-sig-user-agent"
topic: "Programmering"
topic_url: "https://www.webforum.nu/amne/programmering"
author: "higa"
published: "2000-10-23T08:45:00.000Z"
updated: "2000-10-26T08:00:00.000Z"
replies: 4
views: 389
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/programmering/19195-identifiera-sig-user-agent"
---

# Identifiera sig(user-agent)!

## #1 — higa, 2000-10-23T08:45Z

Jag har skrivit ett litet program i Perl som hämtar hem html dokument som den skojar till texten på, men nu är det så att vissa siter funkar som vanligt, medans vissa lämnar följande felmeddelande:

> Due to malformed syntax, the request could not be understood by the server. The client should not repeat the request without modifications.

Några siter föreslår även att jag laddar hem en ny version av Netscape eller MSIE, så tydligen är problemet att min user-agent inte är satt, men hur sätter man user-agent?

Permalänk: https://www.webforum.nu/p/19195

## #2 — Robban, 2000-10-24T06:28Z

Använder du modulen LWP::UserAgent?

```
<font size="1" face="Verdana, Arial, Helvetica, sans-serif">
$obj->agent('Foozilla/7.1');
</font>
```

Permalänk: https://www.webforum.nu/p/341199

## #3 — higa, 2000-10-24T10:49Z

Jag körde förut bara med Socket.pm, men jag prövade att byta ut den mot LWP, och följde instruktionerna för LWP i html-manualen för Activeperl.
En del sidor som t ex [www.aftonbladet.se](http://www.aftonbladet.se)  och [www.renderosity.com](http://www.renderosity.com)  funkar nu till skilnad från förut, men bl a [www.sodertalje.se](http://www.sodertalje.se)  och [www.microsoft.com](http://www.microsoft.com)  funkar inte.
Följande kod har jag i början av scriptet:

```
use LWP::UserAgent;
$ua = new LWP::UserAgent;
$ua->agent("Mozilla/4.0" . $ua->agent);
```

Och här är funktionen för att hämta hemsidor:

```
<font size="1" face="Verdana, Arial, Helvetica, sans-serif">
sub hamta_sida
{
	my($hemmis) = @_;

	# Create a request
	my $req = new HTTP::Request POST => $hemmis;
  	$req->content_type('application/x-www-form-urlencoded');
	$req->content('match=www&errors=0');

	# Pass request to the user agent and get a response back
	my $res = $ua->request($req);

	if ($res->is_success) 
	  { $res->content; } 
	else 
	  { "Content-Type:text/html\n\nBad luck this time\n"; }
}
</font>
```

Permalänk: https://www.webforum.nu/p/341200

## #4 — Jojoxx, 2000-10-25T06:18Z

Ändrade lite i ditt exempel, hoppas det är ok.

```
use HTTP::Request;
use LWP::UserAgent;

$html = hamta_sida('http://www.jojoxx.net/','Mozilla/12.3');
print $html;

sub hamta_sida {
	$ua = LWP::UserAgent->new;
	$ua->agent($_[1]);
	$request = HTTP::Request->new(GET => $_[0]);
	$response = $ua->request($request);
	if ($response->is_success) {
		return $response->content;
	} else {
		return $response->error_as_HTML;
	}
}
```

Permalänk: https://www.webforum.nu/p/341201

## #5 — higa, 2000-10-26T08:00Z

Stort tack!
Nu funkar det som det ska!

Permalänk: https://www.webforum.nu/p/341202

---

Tråden på webben: https://www.webforum.nu/amne/programmering/19195-identifiera-sig-user-agent