 |
|
08.07.2008, 22:30
|
|
Познающий
Регистрация: 08.04.2008
Сообщений: 60
Провел на форуме:
111221
Репутация:
2
|
|
Hi a11!
У меня нубский вопрос, но всё же.
Подскажите, где взять нормальный учебник на русском. Нормальный - это значит не насканеные и плохо обработанные в файнридере, а хорошия учебник для НУБа, чтобы без ошибок и желательно чтобы легко воспринемаемый текст был. Я хочу изучить язык, но очень долго приходится париться из за ошибок в учебнике.
ЗЫ не надо говорить, что учебник нужно купить в магазине. Я в деревне живу сейчас. Не тут таких магазов. Мне желательно ссылки на материал в электронном виде =).
ЗЫЫ Хочу изучить PERL, чтобы писать скрипты, которые позволяли бы брать информацию с веб форм и творить с ней, что хочу), поэтому учебник хочу найти на подобную тематику
Заранее спасибо. И спасибо за внимание =)
|
|
|
08.07.2008, 22:35
|
|
Banned
Регистрация: 19.06.2006
Сообщений: 1,239
Провел на форуме:
1469161
Репутация:
142
|
|
пасиииба:Д
|
|
|
|
08.07.2008, 22:44
|
|
Постоянный
Регистрация: 15.06.2007
Сообщений: 527
Провел на форуме:
1734541
Репутация:
214
|
|
Люди,кто знает?!?!? как цикле foreach поставить таймер??? чтоб если цикл идет долго то он обрывался и переходил дальше
|
|
|
|
08.07.2008, 23:40
|
|
Постоянный
Регистрация: 03.08.2007
Сообщений: 367
Провел на форуме:
876216
Репутация:
209
|
|
Смотря что подразумеваешь под таймером...можно сделать так...
Записываешь в переменную время начала витка цикла, потом по аларму проверяешь разницу во времени начала цикла и текущего, если разница больше определенного значения, то чтото типа next MARK
Короче чтото типа
Код:
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);
}
ЗЫЖ Сорри, если че - не проверял, да и не совсем вменяем щас %))) |
|
|
|
09.07.2008, 09:09
|
|
Постоянный
Регистрация: 15.06.2007
Сообщений: 527
Провел на форуме:
1734541
Репутация:
214
|
|
Сообщение от biophreak
Смотря что подразумеваешь под таймером...
Вот скрипт который делает запрос на сервак,иногда запрос очень долго обрабатывается и его надо рубить чтоб скрипт не завершился по таймауту
#!/usr/bin/perl -w
use strict;
use warnings;
use LWP::UserAgent;
use HTTP::Request;
use Encode qw/encode decode/;
print "content-type: text/html \n\n";
my $query = $ENV{QUERY_STRING};
my $ua = LWP::UserAgent->new;
my ($req, $res, $content, $OUT);
my $url = 'http://site/cgi-bin/trstat.pl';
my $post=$ENV{'QUERY_STRING'};
open my $FILE, '<', '/inetpub/wwwroot/cl/clients.txt' or die "Open error: $!\n";
my @f = <$FILE>;
chomp @f;
close $FILE;
foreach my $name(@f) {
$req = HTTP::Request->new (GET => $url . "?code=$name&month" .$post);
$req->content_type ('text/html');
$res = $ua->request ($req);
die "Can't get url $url: " . $res->status_line . "\n" unless $res->is_success;
$content = $res->content;
open $OUT, '>','/inetpub/wwwroot/cl/res/' . $name.''.$post. '.txt';
print $OUT decode('KOI8-U',$content);
close $OUT;
}
print "Все готово,чтобы посмотреть отчеты нажмите <a href=http://192.168.100.211/cl/res/>сюда</a>";
|
|
|
|
09.07.2008, 09:18
|
|
Постоянный
Регистрация: 03.08.2007
Сообщений: 367
Провел на форуме:
876216
Репутация:
209
|
|
Ну дык попробуй то, что я написал выше, может только незначительные поправки будут....дерзай
|
|
|
|
09.07.2008, 09:37
|
|
Постоянный
Регистрация: 15.06.2007
Сообщений: 527
Провел на форуме:
1734541
Репутация:
214
|
|
К сожалению не получилось ( всеравно запрос ждет ответа и не обрубается(
есть еще идеи?
|
|
|
|
09.07.2008, 10:14
|
|
Постоянный
Регистрация: 03.08.2007
Сообщений: 367
Провел на форуме:
876216
Репутация:
209
|
|
Хм...сорри, забыл, ОСь какая?
Это работает только на никсах ))
|
|
|
|
09.07.2008, 10:24
|
|
Постоянный
Регистрация: 15.06.2007
Сообщений: 527
Провел на форуме:
1734541
Репутация:
214
|
|
Сообщение от biophreak
Хм...сорри, забыл, ОСь какая?
Это работает только на никсах ))
на win2k3 сервак
блин все уже перепробовал ниче не получается.
|
|
|
|
09.07.2008, 10:45
|
|
Участник форума
Регистрация: 08.10.2007
Сообщений: 259
Провел на форуме:
500748
Репутация:
137
|
|
хочу заюзать модуль Net::FTP::File http://search.cpan.org/~dmuey/Net-FTP-File-0.05/File.pm для передачи файла со своего компа на свой ftp сервер
Код:
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;
но пишет
"/" is your current location
Could not change perms on 4.txt: No soch file of directory
в чём проблема? может я неправильно указываю пути к файлам?
Последний раз редактировалось ZET36; 09.07.2008 в 10:48..
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
