Модераторы: korob2001, ginnie
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Помогите с портированием Perl -> Java (2 строчки), Портирую скрипт perl->java, перл не знаю 
:(
    Опции темы
newmindcore
  Дата 29.5.2012, 12:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Есть такая проблема. У провайдера для доступа к сети используется так называемый авторизатор - программа которая бомбит главный сервер провайдера раз в 30 секунд, передавая логин/пароль чтобы сервер знал что соединение активно и пускал в сеть.
Естественно прога только под windows. Для linux пользователей предлагают воспользоваться вот этим скриптом - http://pastebin.com/bWVHFfPM
Я хочу пользоваться интернетом с андроидного девайса. Для этого надо включить комп, запустить авторизатор, потом только можно ходить в сеть. Соответственно возникла мысль написать приложение для андроида (есть опыт), которое бы делало то же самое что и скрипт.

Но вот незадача, с perl не знаком совсем, и некоторые моменты просто тормозят меня в портировании скрипта.
В частности, не могу переварить вот это

Код

$rin = "";
vec($rin, fileno($h), 1) = 1;
my $nf = select($rin, undef, undef, 0);

где $h - это открытый сокет.

Прошу помощи у специалистов, как мне последние две строчки кода выше выразить на Java?

Это сообщение отредактировал(а) newmindcore - 29.5.2012, 12:40
PM MAIL   Вверх
arto
Дата 29.5.2012, 13:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1495
Регистрация: 31.10.2004

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



PM MAIL ICQ   Вверх
Pfailed
Дата 29.5.2012, 20:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

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



Там просто проверяется (без блокировки) готов ли сокет для чтения (т.е. получен хотя бы один байт). И как только он становится готовым для чтения просиходит выход из цикла
Код

last if $nf == 1;




--------------------
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Perl"
korob2001
sharq
  • В этом разделе обсуждаются общие вопросы по языку Perl
  • Если ваш вопрос относится к системному программированию, задавайте его здесь
  • Если ваш вопрос относится к CGI программированию, задавайте его здесь
  • Интерпретатор Perl можно скачать здесь ActiveState, O'REILLY, The source for Perl
  • Справочное руководство "Установка perl-модулей", можно скачать здесь


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, korob2001, sharq.

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


 




[ Время генерации скрипта: 0.0453 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.