Hi a11! У меня нубский вопрос, но всё же. Подскажите, где взять нормальный учебник на русском. Нормальный - это значит не насканеные и плохо обработанные в файнридере, а хорошия учебник для НУБа, чтобы без ошибок и желательно чтобы легко воспринемаемый текст был. Я хочу изучить язык, но очень долго приходится париться из за ошибок в учебнике. ЗЫ не надо говорить, что учебник нужно купить в магазине. Я в деревне живу сейчас. Не тут таких магазов. Мне желательно ссылки на материал в электронном виде =). ЗЫЫ Хочу изучить PERL, чтобы писать скрипты, которые позволяли бы брать информацию с веб форм и творить с ней, что хочу), поэтому учебник хочу найти на подобную тематику Заранее спасибо. И спасибо за внимание =)
Люди,кто знает?!?!? как цикле foreach поставить таймер??? чтоб если цикл идет долго то он обрывался и переходил дальше
Смотря что подразумеваешь под таймером...можно сделать так... Записываешь в переменную время начала витка цикла, потом по аларму проверяешь разницу во времени начала цикла и текущего, если разница больше определенного значения, то чтото типа next MARK Короче чтото типа Code: our $start; MARK: foreach(@mas) { $start = time; alarm(1); print $_; $start = undef; } local $SIG{'ALRM'} = \&check_alarm; sub check_alarm { next MARK if((time - $start) > 30 and defined $start); # 30 секунд alarm(1); } ЗЫЖ Сорри, если че - не проверял, да и не совсем вменяем щас %)))
Вот скрипт который делает запрос на сервак,иногда запрос очень долго обрабатывается и его надо рубить чтоб скрипт не завершился по таймауту
хочу заюзать модуль Net::FTP::File http://search.cpan.org/~dmuey/Net-FTP-File-0.05/File.pm для передачи файла со своего компа на свой ftp сервер Code: use Net::FTP::File; my $ftp = Net::FTP->new("fanera.6te.net", Debug => 0) or die "Cannot connect to some.host.name: $@"; $ftp->login("fanera.6te.net",'6d9dh87') or die "Cannot login ", $ftp->message; $file="3.txt"; $newfile="4.txt"; $ftp->copy($file,$newfile) or warn $ftp->message; $ftp->chmod(777, $newfile) or warn $ftp->message; но пишет в чём проблема? может я неправильно указываю пути к файлам?
#!usr/bin/perl $proc = fork(); if ($proc == 0 ) { print "This is a child process!" or die "Can`t create new process!"; open("STDOUT,>status.txt"); exec("cd C:\"); exec("dir"); close(STDOUT); } else { print "This is parent process!"; } Находит кучу ошибок)).Так как Unix-a нету,приходится импровизировать).Может кто подскажет,как использовать exec() в винде?)
велемир форки это не настоящие процессы лудше сразу пробуй с use threads; use threads::shared; - у ксури была хорошая статья по ним -- поищи -- что касается exec() то в ковычках `cd C:` или qx{}
usr - и вот че вы молодешь все такие наглые ?? ну вот почитай сравнение fork и threads(придется подписаться) поищи еще в нете много статей мне некогда --- треды полюбому дают больше возможностей но с ними надо еще научиться обращаться а вам ведь как всегда лень )) http://av5.com/journals-magazines-online/1/49/502
>usr - и вот че вы молодежь все такие наглые ?? не наглые, а объективные, да и не молодежь я тебе >ну вот почитай сравнение fork и threads мы не о сравнении их, мы о том что: "велемир форки это не настоящие процессы лудше сразу пробуй с use threads" хотя на самом деле fork как раз таки создает настоящий процесс, а threads - это потоки интерпретатора >еще в нете много статей да нахер мне эти статьи, когда я тебе привел страницу из книги автора языка - ларри уолла upd: тебе то может и пох на то как писать, ты брутеры мыл за плюсеки пишешь, а вот велемир может быть хочет стать настоящим Perl хакером, и с твоей стороны вводить его в заблуждение - не есть хорошо.