Темы

16

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...

и т.д. ?

17

Perl / Недостаточно прав на запись

« : 11 Ноября 2008, 12:24:41 »

Проблема

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

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

18

Теория, алгоритмы и стандарты / Нас.пункту в радиусе по координатам

« : 07 Сентября 2008, 15:25:34 »

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

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

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

19

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))
  {
    Запись прошла
  };
}

20

Регулярные выражения / Переменные из скрипта perl

« : 15 Мая 2008, 16:17:31 »

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

Пишу шаблон:

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


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

21

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 с паролем...

22

Perl / Взаимодействие двух скриптов

« : 10 Мая 2008, 14:36:08 »

Как могут взаимодействовать 2 скрипта, находящихся в памяти?

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

while <>, sleep....

23

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;
        }



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

24

JavaScript & JScript / jQuery - утечка памяти

« : 14 Апреля 2008, 11:01:10 »

Использую для чата jQuery
Для обновления setTimeout...

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

25

JavaScript & JScript / iframe

« : 14 Апреля 2008, 10:29:11 »

Здравствуйте...

Как можно из iframe запустить функцию, которая подгружена из file.js в главном окне?

Делаю:

parent.document.UpdateMain(); 

не работает

26

Perl / Perl Daemon или что-то еще...

« : 12 Апреля 2008, 06:29:52 »

Здравствуйте!

У меня есть задача...
Скрипт должен постоянно висеть в памяти и раз в 5 секунд просматривать  файл и менять его при необходимости...

Как это лучше организовать?

P.S. Сервер выделенный...

27

Perl / Проверка переменных

« : 19 Марта 2008, 14:14:50 »

Здравствуйте!

Как, и можно ли вообще, хоть как-то обезопасить переменную, содержащую HTML код целой страницы...

Что необходимо заменить, что вырезать?

28

Perl / Вопрос по mod_perl

« : 30 Января 2008, 15:20:31 »

Есть такая штука...

Файо index.pl

...
получили параметр $mod
Если он пустой, то mod=vasya
require ".../$mod.pl";
...
print @data;
...


Каждый модуль ($mod.pl) заполняет @data своими данными


Короче под mod_perl @data всегда от модуля Vasya... Как такую конструкцию сделать правильно?

29

Perl / mod_perl и Cron

« : 30 Января 2008, 13:45:36 »

У меня под Win, стандартный планировщик запускает периодически скрипт...
Путь: .../perl .../script.pl

Можно ли чего-нть придумать, чтобы все это работало с mod_perl?

30

Perl / Apache::DBI

« : 30 Января 2008, 11:36:59 »

Сабж используется только с mod_perl?