я не пойму чем ты недоволен -- тут что не ответили на какойто вопрос?? помойму ответы приходят в течении 15 минут -- и "я им и предлогаю хороший вариант по изучению перла" -- если ты пытаешься учить перл на форумах то это вообще пиндос -- книжки надо читать и практика практика и еще раз практика -- просмотр чужих скриптов и тд
ты стал писать как хеката-) трудно внимательно прочитать пост человека?зачем тогда отвечать на его посты,если тебе влом их прочитатьи вникнуть в них. он по-русски написал что нужно пользоваться литературой(докум.),а судя по вопросам в теме этой литературой мало кто пользуется.(это его мнение-мое такое же,правда с той лишь разницей что мне пох-)))) скриптовые языки это конечно очень круто ,гы,че хочу то и творю,тут каждый гуру. накуй ты ему -5 поставил?гы ну где он был неправ Добавлено: Spyder ну поставь сам себе минус
Дарова народ! Кароч у мну идея зародилась.....замутить прокси чекер, тока вот не знаю суть этого чекера.....как он работает, может кто нють объяснит как он работает или мануал скиньте плз! сенк
1- реклама 2- оффтоп 3- безсмысленный пост Ответ: 1 - Это не реклама это явная помощ новичкам, где если что они могу найти или спросить совета если тут такой не был дан, если тут их ответ чем то не устраивает они могут посмотреть на винграде! 2 и 3 - Где ты тут увидел оффтоп? И где тут безсмысленный пост? Я всего то попросил если даешь ответ новичкам то хотя бы комментируй так что бы было понятно новичкам среди них есть те кто в танке и т.д думаю потратить пару минут на коммент это не составит труда и новичкам будет понятно и тебе приятно! Дать нормальный чистый ответ это плюс автору за то что он понимает правила хорошего тона Так что если подумать смысол есть! P.s А на счет + да - мне как то все равно хоть вообще -100 будет от этого мне хуже не будет!
IO::Socket =\ Самый простой: PHP: #!usr/bin/perl use IO::Socket; use strict; use warnings; my $all = $ARGV[0]; my ($ip, $port) = split(/:/,$all); my $sock = IO::Socket::INET -> new(PeerAddr => $ip, PeerPort => $port, Proto => 'tcp', Timeout => 10); if($sock) { print "\nLive!\n"; } else { print "\nDead\n"; } Написал только что, работает. Если будет желание, сам разберёшься что да как работает. И сделаешь всё что надо. Это скелет. Юзать: script.pl iport
inv - я просто не понимаю нахера тут писать в теме что она галимая ваш форум гавно идите лудше на этот форум и ссылка ??? а чел помойму дурак - вот и все насчет минуса - если еще такую лажу будет тут писать поставлю еще ибо не за просто так а по делу
Я с ним во многом согласен с той разницей что мне пох на ситуацию,он тут новенький и решил высказаться,поэтому он дурак?ЫЫЫ.Без ответа.
он дурак тк считает что тут никуя немогут ответить на норм вопрос -- хотя тут нормальных вопросов и не задают -- все что тут просили на все ответили -- причем с примерами -- я вообще нипонимаю к чему его гон что лудше идти кудато и вообще -- и хз с чем там соглашаться -- кстати почти все о чем спрашивают в топике можно найти в самом захолустном учебнике -- но приходится отвечать по мере сил тк некоторым легче спросить чем сидеть и искать
человек написал что тут задают или просто тупые вопросы или вопросы на которые уже даны ответы,причем долго искать не надо,ответы же тут дают вроде цитат из книжки,то есть вы просто книжку им заменяете-)и люди опять продолжают задавать свои вопросы .Эта тема мешает людям самим сесть и что-то изучить... Гы так и есть ну и где он не прав и почему он дурак я не пойму-) единственная причина которую вижу я вот... он написал что в этой теме дают херовые ответы,а так ты ,геном ,тут даешь ответы ,то принял как личное-)
Есть строка 111.bbb.333.ccc.555.ddd.666.eee (любые символы, любое кол-во) Кто знает, каким образом можно заменить (убрать) первые 4 вхождения . (точки)? regexp? цикл? substr? чем проще - тем лучше... То есть на выходе должно быть 111bbb333ccc555.ddd.666.eee и тд
а если такая строка: 11111.bbbbb.22222.... ? не вариант ) в мозгу крутится что-то вроде Code: substr($str, index($str, '.')) =~ s/.//g; но не более пока )
решение убогойе, но рабочее $str = '111.bbb.333.ccc.555.ddd.666.eee'; for (0..3){ $str =~ s/\.//; } print $str;
еще несколько вопросов: 1. как perl относится к типу данных NULL? в 2-х словах: имеем SQL Inj. Если в таблице 3 столбца со значениями например "1", "NULL" и "3", то достав их через get (lwp::useragent) и concat_ws(',', id1, id2, id3) получим всего лишь "1, 3", что не есть хорошо, т.к. кроме NULL возможно любое другое значение... 2. сколько символов максимум возвращает этот же метод get? У меня проблема с выводом более 256 символов (неточно, надо проверить, но близко к этому). Если меньше, то все замечательно проходит...
Code: perldoc LWP::UserAgent Code: CONSTRUCTOR METHODS[/B] The following constructor methods are available: $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 [COLOR=DarkOrange] max_size undef[/COLOR] max_redirect 7 Code: $ua->max_size( $[COLOR=DarkOrange]bytes[/COLOR] ) [COLOR=DarkOrange]Get/set the size limit for response content[/COLOR]. The default is undef, which means that there is no limit. If the returned response content is only partial, because the size limit was exceeded, then a "Client-Aborted" header will be added to the response. The content might end up longer than max_size as we abort once appending a chunk of data makes the length exceed the limit. The "Content-Length" header, if present, will indicate the length of the full content and will normally not be the same as length($res->content). *undef - у переменной нет значения Ответ: метод get возвращает столько 'символов', сколько потребуется если не объявлен UserAgent таким образом: Code: my $ua = LWP::UserAgent->new( max_size => ...)
