FORUMS

MEMBERS

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

		Форум АНТИЧАТ > Программирование_OLD > PHP, PERL, MySQL, JavaScript
[Perl] Новичкам: задаем вопросы

Страница 61 из 155

« Первая

111

Последняя »

Опции темы

Поиск в этой теме

Опции просмотра

08.07.2008, 21:57

~~demonoid~~

Banned

Регистрация: 12.01.2007

Сообщений: 113

Провел на форуме:
4094601

Репутация: 495

2 ZET36
вопрос весьма серьёзный xD

Код:

$ perl -e '@a = ('a'..'z');print @a,"\n"'
abcdefghijklmnopqrstuvwxyz
$

2 Велемир

Код:

use IO::Socket;

Последний раз редактировалось demonoid; 08.07.2008 в 22:00..

08.07.2008, 22:10

ZET36

Участник форума

Регистрация: 08.10.2007

Сообщений: 259

Провел на форуме:
500748

Репутация: 137

demonoid Извени я неправильно поставил вопрос я имел ввиду преобразовать все значения массива в один скаляр, уже нашол решение через join (), но всёравно спасибо

Последний раз редактировалось ZET36; 08.07.2008 в 22:13..

08.07.2008, 22:30

GAVVVR

Познающий

Регистрация: 08.04.2008

Сообщений: 60

Провел на форуме:
111221

Репутация: 2

Отправить сообщение для GAVVVR с помощью ICQ

Hi a11!
У меня нубский вопрос, но всё же.
Подскажите, где взять нормальный учебник на русском. Нормальный - это значит не насканеные и плохо обработанные в файнридере, а хорошия учебник для НУБа, чтобы без ошибок и желательно чтобы легко воспринемаемый текст был. Я хочу изучить язык, но очень долго приходится париться из за ошибок в учебнике.
ЗЫ не надо говорить, что учебник нужно купить в магазине. Я в деревне живу сейчас. Не тут таких магазов. Мне желательно ссылки на материал в электронном виде =).
ЗЫЫ Хочу изучить PERL, чтобы писать скрипты, которые позволяли бы брать информацию с веб форм и творить с ней, что хочу), поэтому учебник хочу найти на подобную тематику
Заранее спасибо. И спасибо за внимание =)

08.07.2008, 22:35

~~Велемир~~

Banned

Регистрация: 19.06.2006

Сообщений: 1,239

Провел на форуме:
1469161

Репутация: 142

Отправить сообщение для Велемир с помощью ICQ

пасиииба:Д

08.07.2008, 22:44

svesve

Постоянный

Регистрация: 15.06.2007

Сообщений: 527

Провел на форуме:
1734541

Репутация: 214

Люди,кто знает?!?!? как цикле foreach поставить таймер??? чтоб если цикл идет долго то он обрывался и переходил дальше

08.07.2008, 23:40

biophreak

Постоянный

Регистрация: 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

svesve

Постоянный

Регистрация: 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>";