Просмотр сообщений

В этом разделе можно просмотреть все сообщения, сделанные этим пользователем.


Сообщения - Error202

Страницы: 1 2 [3] 4 5 ... 36
31
Perl / Сортировка нескольких массивов
« : 19 Ноября 2008, 16:06:19 »
Здрасте...

Есть 4 массива

@aa: (\'3\',\'2\',\'1\',\'4\')
@bb: (\'a\',\'b\',\'d\',\'c\')
@cc: (\'xx\',\'xx\',\'xx\',\'xx\')
@dd: (\'xx\',\'xx\',\'xx\',\'xx\')

Как можно их сортирнуть так, чтобы, допустим, при
$i == 1
Сортировалось все по первому массиву
Результат:
1,2,3,4
d,b,a,c
xx,xx...

$i == 2
Сортировалось все по второму массиву
Результат:
3,2,4,1
a,b,c,d
xx,xx...

и т.д. ?

32
Perl / Недостаточно прав на запись
« : 11 Ноября 2008, 14:13:20 »
Это понятно...

Вот только юзеру надо будет написать инструкцию...

1. Залить папку..
2. Сменить ей пользователя и права...
3. Запустить программу...

:(

33
Perl / Недостаточно прав на запись
« : 11 Ноября 2008, 12:24:41 »
Проблема :(

Скрипты не могут править файлы даже в своей домашней папке...
Т.к. они запускаются под юзером apache...

Как решить такую проблему не прибегая к ручной правке прав у каталога на 0777?

34
СУПЕР!!! СПАСИБО!!!

Осталось только теперь придумать, как из MySQL выбрать населённые пункты, удовлетворяющие этому условию... :(

35
Можно ли определить какие населенные пункты находятся в определенном радиусе от определенных координат?

Имеется: База всех населенных пунктов с координатами...

Например:
Входные данные: Москва, радиус 150км...
Выходные данные:
Москва
Дмитров
Королев
Мытищи
Пушкино
Талдом
Химки
...

36
Perl / Чтение строк из файла с условием
« : 19 Августа 2008, 14:27:28 »
Есть файл:
==== cut ====
1111|Иванов С.А.|Инженер
1112|Сидоров С.А.|Инженер
1113|Петров Е.Е.|Инженер
1141|Гришин К.Е.|Технолог
1151|Сергеев С.В.|Инженер
1152|Швыдкин Р.А.|Технолог
1161|Гаврилин В.С.|Инженер
1162|Худаков С.И.|Инженер
1163|Смирнов В.В.|Печатник
==== cut ====

Как я могу из такого файла быстро вытащить все записи,
первая часть которых более 1150 и менее 1162?

Или только перебором каждой строки типа:

foreach (<FILE>)
{
 @
tmp=split(/\\|/, $_);
 if ((
$tmp[0]>=1150)and($tmp[0]<=1162))
  {
    
Запись прошла
  
};
}

37
Надо вытащить все переменные, имена которых больше 1-о символа из Perl скрипта
Задаются они там $name
$name[], $name{} - не нужны

Пишу шаблон:

\\$([a-zA-Z0-9_]{2,})


Вытаскиваются все $name, $name[, $name{
Как мне исключить обработку $name[], $name{}?

38
Perl / Perl & XS
« : 15 Мая 2008, 11:01:04 »
Сишный модуль, в теории, защищен от запуска под отладчиком, от запуска при некотрых других перловых модулях... но это опять же все так, на всякий случай...

Честно говоря заказчик мне ставил конкретную задачу, которая, кстати, соответсвует именно тому куску доки (по присланной Вами ссылке), где вшивается пароль...

Я и шел по этому пути, особо не мудрил...

В сях я не силен и у меня есть некоторые сомнения, что откомпилированный модуль .so будет работать на разных linux ос... пока нет возможности это проверить...

39
Perl / Perl & XS
« : 14 Мая 2008, 21:54:35 »
Ну не совсем...
просто я не могу разобраться в ситуации... Почему воспринимается только первый символ и как отдельная строка...

Я могу выложить исходник XS, если кто-нибудь согласиться в нем ковыряться...

40
Perl / Стоп-слова
« : 14 Мая 2008, 17:55:39 »
Спасибо!

41
Perl / Perl & XS
« : 14 Мая 2008, 17:39:33 »
Здравствуйте!
Поставили мне тут задачку...
Нужно на C++ написать модуль под перл для дешифрации скрипта... чтобы тот еще потом выполнялся...
написал...
получилось примерно так:


#!/usr/bin/perl -w
use Mydecode;
ю)Ч=ќ1GЂФvСj=OR ЧС†…]jЗU"CСЦБ_XИлч ЈЏD!@ў®ЦV_rЋ.ІЅ%ж*П±|к–fВмНTЉфП0c0l‘нrРЪQњ6ѕтГNbМЖTucuBН


Проблема в том, что модуль нормально расшифровывает скрипт, и передает интерпритатору... А тот в свою очередь делает странную штуку...

Когда в зашифрованном скрипте первая строка: print "text"; ... , т.е. первый символ "p", то выдает ошибку
Unquoted string "p" may clash with future reserved word at...

Когда use CGI..., то
Unquoted string "u" may clash with future reserved word at...

и т.д.

Может кто сталкивался?
Почему переменная в модуле содержит нормальный расшифрованный код, а в perl приходит такая штука?

P.S. Кодирую по RC4 с паролем...

42
Perl / Взаимодействие двух скриптов
« : 10 Мая 2008, 14:36:08 »
Как могут взаимодействовать 2 скрипта, находящихся в памяти?

Т.е. висящих с циклами

while <>, sleep....

43
Perl / Стоп-слова
« : 29 Апреля 2008, 16:34:47 »
Здравствйте!

Как оптимальнее всего хранить стоп-слова
и как оптимальнее всего удалять их из текста?



        our 
%stop_hash;
        
our @stop_words qw/i in a to the it have haven\'t was but is be from/;
        foreach @stop_words {$stop_hash{$_}++ };

        sub get_words {

                # теперь с поддержкой стоп-листа!

                my ( $text ) = @_;
                return map { $_ => 1 }
                       grep { !( exists $stop_hash{$_} ) }
                       map lc,
                       map { /([a-z\\-\']+)/i }
                       split /\\s+/s, $text;
        }



Это правильный подход?

44
JavaScript & JScript / jQuery - утечка памяти
« : 14 Апреля 2008, 11:01:10 »
Использую для чата jQuery
Для обновления setTimeout...

Происходит утечка памяти в IE6, 7, когда работает setTimeout...
Кто-нть сталкивался?

45
JavaScript & JScript / iframe
« : 14 Апреля 2008, 10:58:57 »
Спасибо разобрался...

Страницы: 1 2 [3] 4 5 ... 36