Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей.
Здесь обсуждаются безопасность, программирование, технологии и многое другое.
Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
 |
|
19.11.2009, 23:03
|
|
Познавший АНТИЧАТ
Регистрация: 27.04.2007
Сообщений: 1,044
Провел на форуме:
3660186
Репутация:
905
|
|
Как вывести все эл-ты массива ?
Например
Код:
print "@arr\n";
print join ', ' => @arr;
print for @arr;
И нужен скрипт пхп для проверки пр)
Задайте вопрос в соответствующей теме либо поищите в "Полезных скриптах"
|
|
|
21.11.2009, 19:34
|
|
Познающий
Регистрация: 31.05.2009
Сообщений: 68
Провел на форуме:
1271980
Репутация:
19
|
|
Как отсюда вычленить имя хоста? Своя регулярка не пашет, хз почему:
Код:
$akk = "ftp://Mosbuild:A_coQd2X@ftp.ite-expo.ru";
if($akk =~ /\@[^ ]*/) {print "$1\n";}
|
|
|
|
21.11.2009, 19:47
|
|
Динозавр
Регистрация: 10.01.2008
Сообщений: 2,841
Провел на форуме:
9220514
Репутация:
3338
|
|
/^ftp:\/\/?(.*)  .*)\@(.*) \d+)/i
чтобы узреть регулярку нажми quote |
|
|
|
21.11.2009, 19:50
|
|
Новичок
Регистрация: 04.03.2009
Сообщений: 9
Провел на форуме:
279263
Репутация:
7
|
|
Сообщение от intNet
Как отсюда вычленить имя хоста? Своя регулярка не пашет, хз почему:
Код:
$akk = "ftp://Mosbuild:A_coQd2X@ftp.ite-expo.ru";
if($akk =~ /\@[^ ]*/) {print "$1\n";}
my $akk = "ftp://Mosbuild:A_coQd2X \@ftp.ite-expo.ru"; #или брать в одинарные кавычки
if($akk =~ /\@[^ ]*/) {print $&, "\n";}
|
|
|
|
21.11.2009, 21:32
|
|
Познающий
Регистрация: 31.05.2009
Сообщений: 68
Провел на форуме:
1271980
Репутация:
19
|
|
Уже разобрался, всё оказалось предельно просто.
Спасибо всем.
|
|
|
|
23.11.2009, 23:51
|
|
Познающий
Регистрация: 13.05.2009
Сообщений: 40
Провел на форуме:
91842
Репутация:
1
|
|
Привет ачат. Я опять про LWP. Сори если надоел, но почему при редиректе(внешнем) теряются cookie, которые просит установить сервер до редиректа. Например:
Код:
my $ua = LWP::UserAgent->new;
my $response = $ua->get("http://www.liex.ru/".$link,
'Accept' => 'text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,*/*;q=0.5',
'Accept-Language' => 'ru-ru,ru;q=0.8,en-us;q=0.5,en;q=0.3',
'Accept-Encoding' => 'gzip,deflate',
'Accept-Charset' => 'windows-1251,utf-8;q=0.7,*;q=0.7',
'Connection' => 'close');
my %cookies = $response->header('Set-Cookie');
Вместо $link можно поставить winflip.htm. Когда я работал с сокетами выходило двое кук JSESSIONID и referral, а теперь токо JSESSIONID, а мне больше referral нужен. В общем помогите. |
|
|
|
24.11.2009, 22:00
|
|
Познающий
Регистрация: 13.05.2009
Сообщений: 40
Провел на форуме:
91842
Репутация:
1
|
|
Мда.. Недочитал))))
$ua = LWP::UserAgent->new( %options )
This method constructs a new LWP::UserAgent object and returns it. Key/value pair arguments may be provided to set up the initial state. The following options correspond to attribute methods described below:
KEY DEFAULT
----------- --------------------
agent "libwww-perl/#.###"
from undef
conn_cache undef
cookie_jar undef
default_headers HTTP::Headers->new
local_address undef
max_size undef
max_redirect 7
parse_head 1
protocols_allowed undef
protocols_forbidden undef
requests_redirectable ['GET', 'HEAD']
timeout 180
The following additional options are also accepted: If the env_proxy option is passed in with a TRUE value, then proxy settings are read from environment variables (see env_proxy() method below). If the keep_alive option is passed in, then a LWP::ConnCache is set up (see conn_cache() method below). The keep_alive value is passed on as the total_capacity for the connection cache.
|
|
|
|
28.11.2009, 19:03
|
|
Новичок
Регистрация: 24.10.2009
Сообщений: 1
Провел на форуме:
2683
Репутация:
0
|
|
Здрасте, вам. Я решил начать изучать (решительно) Perl. Но вот только,я не как не могу разобраться в нем. Прошу помощи у умов. Начну с начала. Во первых у меня windows xp, скачал книгу "изучаем perl", установил программу "Perl express 2.4.5". Но в книге по ходу скрипты которые прога не понимает. По этому устанол другую програму "ActivePerl-5.10.1.1006-MSWin32-x86-291086.msi". Ну вобщем я ее даже запустить не смог.
Я так понимаю тема для новичков, по этому прошу не смеяться.
И вообще подскажите как начать изучения языка с нуля. Какие книги нужны, компиляторы, с чего наченали Вы?
Буду очень благодарен.
|
|
|
|
28.11.2009, 20:30
|
|
Познающий
Регистрация: 13.05.2009
Сообщений: 40
Провел на форуме:
91842
Репутация:
1
|
|
Сразу на заметку Perl - не компилятор, а интерпретатор.
Лично у меня на windows стоит indigoperl.(indigostar.com кажись).
А "библией" по perl является знаменитая книга http://www.books.ru/shop/books/11085
|
|
|
|
28.11.2009, 20:42
|
|
Постоянный
Регистрация: 25.10.2009
Сообщений: 376
Провел на форуме:
1960634
Репутация:
311
|
|
Сообщение от papillon
Здрасте, вам. Я решил начать изучать (решительно) Perl. Но вот только,я не как не могу разобраться в нем. Прошу помощи у умов. Начну с начала. Во первых у меня windows xp, скачал книгу "изучаем perl", установил программу "Perl express 2.4.5". Но в книге по ходу скрипты которые прога не понимает. По этому устанол другую програму "ActivePerl-5.10.1.1006-MSWin32-x86-291086.msi". Ну вобщем я ее даже запустить не смог.
Я так понимаю тема для новичков, по этому прошу не смеяться.
И вообще подскажите как начать изучения языка с нуля. Какие книги нужны, компиляторы, с чего наченали Вы?
Буду очень благодарен.
также инетересен вопрос,а если у меня 7 то тоже самое все абсолютно подойдет?papillon плис напишишь в пм если у тебя получилось  парни все также на 7..
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
