Просмотр сообщений
46
Perl / регулярное выражение . . .
« : 26 Января 2008, 04:32:47 »
неа . . .
Новости:
Просмотр сообщений
В этом разделе можно просмотреть все сообщения, сделанные этим пользователем.
47
Perl / регулярное выражение . . .
« : 23 Января 2008, 09:06:17 »
2) ;{1,} - это избавляется от ошибок . . . т.е. если например будет $value;; - поймет как $value;
3) \\$(.*?)\\;\' можно написать \'(\\$.*?)\\;\' . . . все понятно . . . ищется начало с $ . . .и для пункта 4 (.*?) . . . в твоем случае непонятно что найдет
4) я значение получаю не по ссылке . . . а по подмене \\$(.*?)\\;{1,}/$$1 :: (.*?) - $1
3) \\$(.*?)\\;\' можно написать \'(\\$.*?)\\;\' . . . все понятно . . . ищется начало с $ . . .и для пункта 4 (.*?) . . . в твоем случае непонятно что найдет
4) я значение получаю не по ссылке . . . а по подмене \\$(.*?)\\;{1,}/$$1 :: (.*?) - $1
48
Perl / регулярное выражение . . .
« : 20 Января 2008, 09:14:50 »
В общем есть такая задача . . . есть например в переменной некий текст . . . и если там есть $value;
например, то заменять его на соответствующее значение переменной . . . работает щяс так .:
$page=~s/\\$(.*?)\\;{1,}/$$1/g;
если переменные есть в тексте,но они не на одной строчке, то все заменяется ок . . .а если такой, например вариант: $value1;/imgs/$value_ttl;
, то ищется почему то переменная "value1;/imgs/$value_ttl"
как можно поправить?
например, то заменять его на соответствующее значение переменной . . . работает щяс так .:
$page=~s/\\$(.*?)\\;{1,}/$$1/g;
если переменные есть в тексте,но они не на одной строчке, то все заменяется ок . . .а если такой, например вариант: $value1;/imgs/$value_ttl;
, то ищется почему то переменная "value1;/imgs/$value_ttl"
как можно поправить?
49
Perl / Дерево разделов
« : 16 Января 2008, 01:30:26 »
Объясняю . . .
Сейчас у меня дерево работает так...
1) Из скрипта вызывается функция . . .&tree
2) В скрипте эта ж функция вызывает сама себя . . . т.е. она рекурсивная . . .
Вот и хочется написать чтобы &tree не вызывала сама себя! . . . т.е. построить дерево без рекурсии
. . . Сейчас у меня дерево работает так...
1) Из скрипта вызывается функция . . .&tree
2) В скрипте эта ж функция вызывает сама себя . . . т.е. она рекурсивная . . .
Вот и хочется написать чтобы &tree не вызывала сама себя! . . . т.е. построить дерево без рекурсии
50
Perl / Дерево разделов
« : 15 Января 2008, 16:34:28 »
Не...это понятно...у меня и при использовании рекурсивной функции ограничивается . . . я не могу реализовать чтобы в одной чтобы без рекурсии работало . . . т.е. вызвал &tree например и дерево построилось
51
Perl / Дерево разделов
« : 15 Января 2008, 04:47:11 »
В общем нужно сделать дерево разделов...структура в БД примерно такая:
id name parent
1 AAA 0
2 BBB 1
3 CCC 0
и т.д. . . . у меня получилось сделать с использованием рекурсивной функции . . . есть варианты реализации без рекурсии?
id name parent
1 AAA 0
2 BBB 1
3 CCC 0
и т.д. . . . у меня получилось сделать с использованием рекурсивной функции . . . есть варианты реализации без рекурсии?
52
Базы данных / MySql Query с parent_id
« : 30 Октября 2007, 09:17:43 »
и как это будет получена запись №6...в ней парент ид = 5
стандартными средствами не реализуешь такого рода запрос...если я тебя правильно понял.......Должны искаться Parent_id=0 потом искаться зависимые от низ записи и просматриваться значение flag....mysql такого не могёт
стандартными средствами не реализуешь такого рода запрос...если я тебя правильно понял.......Должны искаться Parent_id=0 потом искаться зависимые от низ записи и просматриваться значение flag....mysql такого не могёт
54
Есть строка 0000111001000000000000 . . . или же бинарные данные в которых эта строка . . . считываю я это так unpack("X20",$bin_data) . . . а нужно получить тупо число в dec 233472
думал может эмо можно как-нить стандартными средствами . . . щя пока реализовал так:
##################################################
sub bin2dec {
my @bin = split(//,"$_[0]");
my $dec = 0;
my $ves_count = 1;
for($i=$#bin;$i >= 0; $i--) {
}
return $dec;
}
думал может эмо можно как-нить стандартными средствами . . . щя пока реализовал так:
##################################################
sub bin2dec {
my @bin = split(//,"$_[0]");
my $dec = 0;
my $ves_count = 1;
for($i=$#bin;$i >= 0; $i--) {
if($bin[$i] == 1) {
$dec+=$ves_count;
}
$ves_count=$ves_count*2;
}
return $dec;
}
59
Цитировать
arto:
dlinu fiksirowannoj chasti znaete?
$/ = \\length_of_fix_part;
while () {
# now in $_ -- fix part of record
if ($_ eq "chunk1") {
local $/ = \\length_of_chunk1;
my $chunk1 =;
# processing...
}
# process other chunks
}
Хм. . . . непонятно ничё
. . . чанки какие-то . . . вообще...по-идее размер фиксированной части известен . . . \\
Длина фиксированной части записи 16+n байт, где n – совокупная длина кода зоны и списочного
номера абонента, действия которого инициировали создание записи, представленных в виде
двоично-десятичных символов, как описано выше.
