Debian10+Apache2.4+Perl5.28+XSLT проблема фрагментации памяти

@Kondor1075 · Регистрация: 12.11.2019

Author24 — интернет-сервис помощи студентам

Здравствуйте уважаемые. Есть работающий сервер игры. Обслуживаю его как добровольный кодер. Для меня это практика. Обслуживаю и учусь.Но вот зашел в тупик. Прошу помощи сообщества. Потребовалось сделать зеркало на локальной машине, для использования как тестового сервера. Все перенесено БД, модули, и прочее, все. Модуль запускающий обработчики XML и XSLT вызывает ошибку Segmentation fault apache2, при попытке стартовать сервер. Найдется у кого то время помочь мне тут или даже через личку? Какая информация нужна?

volodin661 · 20.07.2020, 22:59

любителям странного посвящается

Perl

sub sec {my $i=shift; qq{ <sec name="a$i" p="$i"/> }}
 
$out = q<<main>>
         . sec (1)
         . sec (2)
         . sec (3)
         .
       q<</main>>;
 
print $out;

или так

Perl

sub sec { CORE::state $i++; qq{ <sec name="a$i" p="$i"/> }}
 
$out = q<<main>>
         . sec
         . sec
         . sec
         .
       q<</main>>;
 
print $out

@ft4l · 20.07.2020, 23:43

Perl

1	print $_.$/ for '<main>', map({qq' <sec name="a$_" p="$_"/>'} 1..4), '</main>';

нелюбителям многострочного кода

Добавлено через 3 минуты
с запятой $_,$/ ... возможно оптимальнее

volodin661 · 21.07.2020, 13:23

Perl

print
    qq<<main>>, map(<<SEC, 1..4),
 
         <sec name="a$_" p="$_"/>
SEC
    qq<</main>>;

@Kondor1075 · 22.08.2020, 12:20 **[ТС]**

Здравствуйте уважаемые, как то на ровном месте возникла

Perl

#!/usr/bin/perl
use utf8;
#use strict;
 
my @all qw(aaa
bbb
ccc);

ответ
syntax error at
Might be a runaway multi-line () string starting on line

Прошу немного вашего времени и знаний справится с этим затыком, спасибо

Добавлено через 7 минут
Извините ступил, а присваивать кто будет? Пушкин?))

@Kondor1075 · 07.10.2020, 13:53 **[ТС]**

Здравствуйте уважаемые. Встретилась конструкция

Perl

1 while (s{\[table(=?[^\]]*?)\]((.(?!\[table\]))*?)\[/table\]}{
            ParseTable($2, $1);
        }iges
    );

внутри скобок не важно. там РВ, прошу помочь до конца понять

Perl

1 while

мне поиск выдает кучу инфы да все по стандартному использованию

Perl

while

. Спасибо.

Добавлено через 18 минут
Другой вопрос по использованию while с РВ

Perl

1	while (s/\[i\]([^\r\n]+?)\[\/i\]/<i>$1<\/i>/gi){};

Видите пустой блок, те. сам while ничего не делает, зачем он нужен? если можно просто написать РВ в глобальном контексте,что собственно
и есть s/\[i\]([^\r\n]+?)\[\/i\]/<i>$1<\/i>/gi замечу что используется переменная $_

@ft4l · 07.10.2020, 14:40

Сообщение от Kondor1075

зачем он нужен?

Непонятно зачем нужен вообще while для s///g
если запустить например такое

Bash

$ cat <<\x | perl -w
$_ = '
aaa bbbbbb
bbb aaa
ccc bbbb
';
while(s/(b+)/ee/g){print $&,$/;}
x
bbbb

видно что итерация всего одна, заменяется всё, и while не нужен.
Оно для m//g

Добавлено через 5 минут

Сообщение от x_lab

while не нужен

.... если в теле цикла не менять $_ возможно

volodin661 · 07.10.2020, 14:50

Сообщение от Kondor1075

Видите пустой блок, те. сам while ничего не делает, зачем он нужен?

а нам зачем нужно всю эту малограмотность разбирать ?
ни сердцу, ни уму.

Добавлено через 4 минуты
если жить без while не мила,
то как-нить так:

Perl

1	1while s {\[i\] ([^[]+) \[/i\]} {<i>$1</i>}cix

@ft4l · 07.10.2020, 15:20

Сообщение от x_lab

в теле цикла не менять $_

Bash

$ cat <<\x | perl -w
 
sub test{ $_ = '' }
$_ = 'aaa bbb bbb aaa';
 
while (s/(\b[ab]+)\s+\1/test()/eg) { print $&, $/}
#print $/, $_ , $/
x
bbb bbb
aaa  aaa

Первый отрывок кода возможно делает внутри ParseTable что-то с $_
интересно что просто с sub test{ '' } всего одна итерация

Добавлено через 22 минуты
Извиняюсь , в глазах от мельтешения помутнилось

sub test{ '' } работет точно так-же ))
и даже с

Perl

1 2	$_ = 'aaa bbb bbb aaa'; while (s/(\b[ab]+)\s+\1//g) { print $&, $/}

две итерации

@Kondor1075 0 / 0 / 0 Регистрация: 12.11.2019 Сообщений: 41
		1
	Debian10+Apache2.4+Perl5.28+XSLT проблема фрагментации памяти 26.01.2020, 11:34. Показов 4004. Ответов 47 Метки нет (Все метки) Здравствуйте уважаемые. Есть работающий сервер игры. Обслуживаю его как добровольный кодер. Для меня это практика. Обслуживаю и учусь.Но вот зашел в тупик. Прошу помощи сообщества. Потребовалось сделать зеркало на локальной машине, для использования как тестового сервера. Все перенесено БД, модули, и прочее, все. Модуль запускающий обработчики XML и XSLT вызывает ошибку Segmentation fault apache2, при попытке стартовать сервер. Найдется у кого то время помочь мне тут или даже через личку? Какая информация нужна? 0