Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Perl: разработка для Web > Нужна помошь!

Автор: Роман 2.12.2004, 15:11

Уважаемые програмисты нужна помошь!
у меня есть интернет портал и я хотел бы знать какие ip адреса его посещают!
ну чтобы они например записывались в текстовый фаил!
заранее спс! моё мыло box1@aaanet.ru !

Автор: korob2001 2.12.2004, 15:15

Код


#!/usr/bin/perl -w
my $file = "UserIP.txt";
my $ip = $ENV{ HTTP_X_FORWARDED_FOR } || $ENV{ REMOTE_ADDR };
open( FILE, "> $file" ) or die $!;
  print FILE $ip, "\n";
close( FILE );

Удачи.

PS: Название темы, должно содержать её суть.

Автор: Роман 2.12.2004, 15:50

спс но не мог бы ты обьяснить куда его вставлять и что надо может дополнительно сделать?
а то я не очень силен в програмировании!

Автор: dimes 2.12.2004, 16:27

Цитата(korob2001 @ 2.12.2004, 16:15)

open( FILE, "> $file" ) or die $!;

open( FILE, ">>$file" ) or die $!;

Автор: Роман 2.12.2004, 16:36

спс но мне это нечего не дало!
я же сказал я пока не шарю в этом!
и если можно обьясните по русски!

Автор: Phoinix 5.12.2004, 10:25

Цитата

я же сказал я пока не шарю в этом!

http://www.hotlog.ru/

Автор: korob2001 5.12.2004, 13:26

dimes - моя ошибка, признаю. ;))))