---

Hej

1. Jeg vil gerne skrive ud i HTML fra en while løkke til clientens browser.

2. Samtidig er jeg intereseret i at hører hvordan jeg får fadt i clientens
ip addresse fra browseren.

Please advice..

Mvh. Kasper

---

"Kasper Baas" <baas@post1.tele.dk> writes:

> 1. Jeg vil gerne skrive ud i HTML fra en while løkke til clientens browser.

Tillykke

> 2. Samtidig er jeg intereseret i at hører hvordan jeg får fadt i clientens
> ip addresse fra browseren.

Brug remote_host() metoden fra CGI.pm objektet.

--
hash-bang-slash-bin-slash-bash

---

> > 1. Jeg vil gerne skrive ud i HTML fra en while løkke til clientens
browser.
>
> Tillykke

tak..
mit problem er at jeg intet får ud til browseren ved print men kører jeg
scriptet lokalt kommer det fint ud.

> > 2. Samtidig er jeg intereseret i at hører hvordan jeg får fadt i
clientens
> > ip addresse fra browseren.
>
> Brug remote_host() metoden fra CGI.pm objektet.

du skulle vel ikke have et eksempel.

Mvh. Kasper

---

"Kasper Baas" <baas@post1.tele.dk> writes:
> mit problem er at jeg intet får ud til browseren ved print men kører jeg
> scriptet lokalt kommer det fint ud.

$| = 1;

> > Brug remote_host() metoden fra CGI.pm objektet.
>
> du skulle vel ikke have et eksempel.

perldoc CGI
--
Lars Balker Rasmussen "Special is bad."

---

"Kasper Baas" <baas@post1.tele.dk> writes:
> 1. Jeg vil gerne skrive ud i HTML fra en while løkke til clientens browser.

Jamen, det gør du bare.

(Prøv at læse det du skrev een gang til...)

> 2. Samtidig er jeg intereseret i at hører hvordan jeg får fadt i clientens
> ip addresse fra browseren.

$ENV{REMOTE_ADDR}
--
Lars Balker Rasmussen "Special is bad."

---

> > 1. Jeg vil gerne skrive ud i HTML fra en while løkke til clientens
browser.
>
> Jamen, det gør du bare.
>
> (Prøv at læse det du skrev een gang til...)

Jeg omformulerer:

1. Kan du give mig et eksempel på hvordan man kan skrive til en web browser
fra en while løkke.

Mvh. Kasper

---

"Kasper Baas" <baas@post1.tele.dk> writes:
> > > 1. Jeg vil gerne skrive ud i HTML fra en while løkke til clientens
> browser.
>
> Jeg omformulerer:
>
> 1. Kan du give mig et eksempel på hvordan man kan skrive til en web browser
> fra en while løkke.

Det er da det samme du skriver.

while (condition()) {
print "<hr>\n";
}

Dit problem er (kunne jeg forstå på dit svar til Peter), at du ikke ser
det output din while-løkke laver MENS den arbejder. Men det kan man
altså ikke gætte ud fra det du skriver ovenfor.

Skriv i toppen af dit script:

$| = 1;

Fra perldoc perlvar:

$| If set to nonzero, forces a flush right away and
after every write or print on the currently selected
output channel. Default is 0 (regardless of whether
the channel is actually buffered by the system or
not; $| tells you only whether you've asked Perl
explicitly to flush after each write). Note that
STDOUT will typically be line buffered if output is
to the terminal and block buffered otherwise.
Setting this variable is useful primarily when you
are outputting to a pipe, such as when you are
running a Perl script under rsh and want to see the
output as it's happening. This has no effect on
input buffering. (Mnemonic: when you want your
pipes to be piping hot.)


--
Lars Balker Rasmussen "Special is bad."

---

"Kasper Baas" <baas@post1.tele.dk> wrote in message
news:9c1evk$hgj$1@news.inet.tele.dk...
> > > 1. Jeg vil gerne skrive ud i HTML fra en while løkke til clientens
> browser.
> > Jamen, det gør du bare.
> > (Prøv at læse det du skrev een gang til...)
> Jeg omformulerer:
> 1. Kan du give mig et eksempel på hvordan man kan skrive til en web
browser
> fra en while løkke.

while () {
print "<blink>Dette er HTML</blink><br>\n";
}

--
Trond Michelsen

---

tak.. jeg fandt ud af at min while løkke aldrig kørte..

Jeg prøver at grep fra en text fil på ip niveau og få outputtet til en html
side.

Kan man på en nem måde skrive noget fra /var/log/messages |grep
192.168.1.100 til en $var for derefter at skrive den ud i browseren.

Mvh. Kasper

---

"Kasper Baas" <baas@post1.tele.dk> writes:
> Kan man på en nem måde skrive noget fra /var/log/messages |grep
> 192.168.1.100 til en $var for derefter at skrive den ud i browseren.

$var = `grep 192.168.1.100 /var/log/messages`;
print $var;
--
Lars Balker Rasmussen "Special is bad."

---

> $var = `grep 192.168.1.100 /var/log/messages`;
> print $var;

Tak jeg får dog stadig intet ud i browseren. please advice. Det virker fint
lokalt på maskinen men ikke i en browser:

Mvh. Kasper

#!/usr/bin/perl

#use strict;
use CGI qw(:all); # Lets us grab vars passed from web
server
use CGI::Carp qw(fatalsToBrowser); # Sent fatal errors to browser

#$CGI::POST_MAX=1024*100; # Maximum 100k posts to prevent CGI DOS attacks
#$CGI::DISABLE_UPLOADS=1; # Disable uploads to prevent CGI DOS attacks

print header(), start_html();
$var = `grep $ENV{REMOTE_ADDR} /tmp/test.txt`;
#$var = `grep 192.168.1.10 /tmp/test.txt`;
print $var;
print end_html;

---

"Kasper Baas" <baas@post1.tele.dk> skrev i en meddelelse
news:9c1jt0$40q$1@news.inet.tele.dk...
> > $var = `grep 192.168.1.100 /var/log/messages`;
> > print $var;
>
> Tak jeg får dog stadig intet ud i browseren. please advice. Det virker
fint
> lokalt på maskinen men ikke i en browser:

Kunne det tænkes, at den bruger apache kører som ikke har lov til at læse
filen/skifte til det bibliotek filen ligger i?

prøv evt. at udskrive brugerens ip inden du grepper, hvis den er tom er det
sikkert derfor - eller kig om du overhovedet har nogen ENV-variable:

print "$_ => $ENV{$_}<br>\n" for keys %ENV;

--
Mvh. Nezar Nielsen
http://fez.dk/

---

> > Tak jeg får dog stadig intet ud i browseren. please advice. Det virker
> fint
> > lokalt på maskinen men ikke i en browser:

har du husket : print "Content-type:text/html\n\n";
i starten af dit script (den er jo ret vigtig hvis man vil lave html via
perl )

Jacob N. Brandrup

---

Tak for stor hjælp, fejlen fandt jeg da det pinligt nok gik op for mig at
den $ENV{REMOTE_ADDR} jeg sad ved ikke eksisterede i filen jeg greppede fra.

Mvh. Kasper