ja dt er nu mest for at få en snak igang

ANER DET IKKE, men en hyggesludder er vel heller ikke af vejen ;-)

den er lidt tricky, men den er god at kende, hvis man skal lave f.eks. webservere, for Opera-browseren opfører sig nemlig sådan når den sender data..

Eh, hvad er det for noget sludder....

[ask@impatience ask]$ cat z
foo 1
foo 2
foo 3[ask@impatience ask]$
... $ perl -e 'open(NS,"z"); print while <NS>'
foo 1
foo 2
foo 3[ask@impatience ask]$


ellers er svaret paa dit spoergsmaal at bruge sysread eller read.

  perldoc -f sysread

- ask

du har ganske ret i dit svar, men jeg har bare ikke lyst til at lukke diskusionen nu ;)

uhmn. der er da ellers ikke meget at snakke om. :-)

hm...nå, du har vist ret*G* (stilhed....)

Jeg har kigget lidt på den der du har lavet her
med lande kode men jeg får kun de sidste 2 ciffer i ip jeg kommer fra was gør jeg galt. ?
#!E:\Perl_PKJ\bin

$RemoteHost = $ENV{'REMOTE_HOST'};
if ((!$RemoteHost) || ($RemoteHost =~ m!^\d+\.\d+\.\d+\.\d+$!)) {
    if ($ENV{'REMOTE_ADDR'} =~ m!^(\d+)\.(\d+)\.(\d+)\.(\d+)$!) {
        $RemoteHost = (gethostbyaddr(pack('C4',$1,$2,$3,$4),2))[0] || $ENV{'REMOTE_ADDR'};
        }
    }
$RemoteHost = lc($RemoteHost);
$country = (split(/\./,$RemoteHost))[$#_];
if  ((split(/\./,$RemoteHost))[$#_-1] eq 'telia') { $country = 'dk/se';}

print "content-type: text/html\n\nDu kommer fra: ".uc($country);
exit;