Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей.
Здесь обсуждаются безопасность, программирование, технологии и многое другое.
Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
 |
|

08.11.2009, 02:05
|
|
Динозавр
Регистрация: 10.01.2008
Сообщений: 2,841
Провел на форуме: 9220514
Репутация:
3338
|
|
#!/usr/bin/perl
use LWP::Simple;
print "Enter URL:\n";
$choice = <STDIN>;
chomp $choice;
$content = get($choice);
die "Couldn't get it!" unless defined $content;
print $content;
|
|
|

08.11.2009, 02:20
|
|
Members of Antichat - Level 5
Регистрация: 15.06.2008
Сообщений: 941
Провел на форуме: 5111568
Репутация:
2399
|
|
Сообщение от Pashkela
$choice = <STDIN>;
chomp $choice;
|
|
|

08.11.2009, 02:24
|
|
Участник форума
Регистрация: 10.10.2009
Сообщений: 133
Провел на форуме: 143706
Репутация:
-1
|
|
Пасип большое,Pashkela 
|
|
|

08.11.2009, 02:36
|
|
Участник форума
Регистрация: 10.10.2009
Сообщений: 133
Провел на форуме: 143706
Репутация:
-1
|
|
Такая проблема:
Есть,к примеру,4 функции,вычисляющие сумму,разность,деление и вычитание от двух аргументов.Объявил все функции в модуле.Как теперь получить к ним доступ из пакета (а также переменным в каждой функции) ? Нужен рабочий пример.Вместо реальных функции можно использовать гипотетические - (sum,del и т.д.).
Если я объявляю,скажем,переменную (обычную) в модуле,скажем,KE.pl,а в исполняемом скрипте использую директиву use,то :: можно не использовать,а сразу использовать переменную как лексическую(как будто бы модуля и вовсе нет...).А когда же тогда использовать :: ?
|
|
|

08.11.2009, 13:34
|
|
Reservists Of Antichat - Level 6
Регистрация: 23.08.2007
Сообщений: 1,237
Провел на форуме: 18127311
Репутация:
1676
|
|
http://www.intuit.ru/department/pl/perl/class/free/13/
|
|
|

08.11.2009, 17:17
|
|
Участник форума
Регистрация: 10.10.2009
Сообщений: 133
Провел на форуме: 143706
Репутация:
-1
|
|
Создал модуль W.pm:
PHP код:
package S;
sub pr {
my ($x,$y) = @_;
$z = $x*$y;
return $z;
}
1;
Затем - фаил w.pl:
PHP код:
use W;
$obj = S->pr(5,9);
print $obj;
Вернуло 0.Почему ?
|
|
|

08.11.2009, 17:48
|
|
Reservists Of Antichat - Level 6
Регистрация: 23.08.2007
Сообщений: 1,237
Провел на форуме: 18127311
Репутация:
1676
|
|
|
|
|

08.11.2009, 20:26
|
|
Постоянный
Регистрация: 15.06.2007
Сообщений: 527
Провел на форуме: 1734541
Репутация:
214
|
|
В LWP::UserAgent при использовании проксика надо будет использовать $browser->proxy(['http']=>"http://".$proxy_addr."/"); ???
$proxy_addr - это я так понимаю адрес прокси, но как быть если прокся например на порту 3128.
товишь получается при использовании проксика надо будет использовать $browser->proxy(['http']=>"http://212.212.212.1:3128/"); ???
|
|
|

08.11.2009, 20:27
|
|
Динозавр
Регистрация: 10.01.2008
Сообщений: 2,841
Провел на форуме: 9220514
Репутация:
3338
|
|
Прокси лучше юзать с сокетами, имхо
|
|
|

08.11.2009, 20:36
|
|
Постоянный
Регистрация: 15.06.2007
Сообщений: 527
Провел на форуме: 1734541
Репутация:
214
|
|
ну а если через UA?? а то переписывать весь скрипт вкорне не охото
|
|
|
|
 |
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|