VPF::Нужна помошь! - Форум программистов

Роман

Дата 2.12.2004, 15:11 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Уважаемые програмисты нужна помошь!
у меня есть интернет портал и я хотел бы знать какие ip адреса его посещают!
ну чтобы они например записывались в текстовый фаил!
заранее спс! моё мыло [email protected] !

korob2001

Дата 2.12.2004, 15:15 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2871
Регистрация: 29.12.2002

Репутация: 13
Всего: 61

Код


#!/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: Название темы, должно содержать её суть.

Это сообщение отредактировал(а) korob2001 - 2.12.2004, 15:16

--------------------

"Время проходит", - привыкли говорить вы по неверному пониманию.
"Время стоит - проходите вы".

Роман

Дата 2.12.2004, 15:50 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

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

dimes

Дата 2.12.2004, 16:27 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 249
Регистрация: 20.7.2004
Где: то около СПБ

Репутация: нет
Всего: 14

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

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

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

Это сообщение отредактировал(а) dimes - 2.12.2004, 16:29

Роман

Дата 2.12.2004, 16:36 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

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

Phoinix

Дата 5.12.2004, 10:25 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 41
Регистрация: 16.11.2004
Где: Moskau

Репутация: 1
Всего: 2

Цитата

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

http://www.hotlog.ru/

korob2001

Дата 5.12.2004, 13:26 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2871
Регистрация: 29.12.2002

Репутация: 13
Всего: 61

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

--------------------

"Время проходит", - привыкли говорить вы по неверному пониманию.
"Время стоит - проходите вы".

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: разработка для Web \| Следующая тема »