VPF::Операционка - Форум программистов

Rusico

Дата 12.7.2005, 09:29 (ссылка)

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

Загрузка ...

Шустрый

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

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

Всем привет.
Как определить тип и версию ОС на Perl через HTTP_USER_AGENT (я не силён в регулярных выражениях)
заранее спасибо.

korob2001

Дата 12.7.2005, 09:33 (ссылка)

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

Загрузка ...

Эксперт

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

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

Тебе чью ОС нужно определить? Если свою то попробуй так:

Код


#!/usr/bin/perl -w
use strict;
print $^O;

Если юзера, тогда приведи пример того, что тебе возвращает USER_AGENT

Это сообщение отредактировал(а) korob2001 - 12.7.2005, 09:35

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

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

Rusico

Дата 12.7.2005, 10:22 (ссылка)

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

Загрузка ...

Шустрый

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

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

В том то и дело, что HTTP_USER_AGENT может возвращать различные по строению строки, но все они имеют запись об ОС

sharq

Дата 13.7.2005, 01:30 (ссылка)

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

Загрузка ...

Perl Liker

Профиль
Группа: Участник
Сообщений: 841
Регистрация: 13.12.2004
Где: Ростов-на-Дону

Репутация: 23
Всего: 28

Rusico вот накидал пару строк

Код

use strict;

print "Content-type: text/html\n\n";

my  $user_agent = $ENV{'HTTP_USER_AGENT'} || 'none';
print $user_agent, "<br>\n";

print "Parsing: <br>\n";

if ($user_agent =~ /windows/i) {
    print "is Windows <br>\n";

} elsif ($user_agent =~ /linux/i) {
    print "is Linux <br>\n";

} elsif ($user_agent =~ /bsd/i) {
    print "is BSD <br>\n";

} else {
    print "is Unknown <br>\n";

    #save in log file for our script will be nice!
}

Цитата(Rusico @ 12.7.2005, 10:22)

В том то и дело, что HTTP_USER_AGENT может возвращать различные по строению строки, но все они имеют запись об ОС

Не-е, структура есть, воть она: движок_браузера (тип_ос) тип_браузера_или_коменты.
Смотри здесь.

Поэтому можно анализировать строку стоящую в круглых скобках!

Это сообщение отредактировал(а) sharq - 13.7.2005, 01:35

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

[color=gray]There's More Than One Way To Do It[/color]

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