помогите!!!

[Mikhail Stakhanov]

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

В общем перепробывал все.
Вот это работает:
`grep -v '*' $SRIFI{ 'requestlist' } | sed -e 's/
//' -e 's/\?/\./g' -e 's/^/\\//' -e 's/\$/\$/' | grep -if - $filelist
2>/dev/null | sed 's/^/+/' > $SRIFI{ 'responselist' }`;

просто привожу строчку целиком, тут все sed не важны.

А вот это нет:
open RL, ">".$srif{'responselist'} or die "System error $! of writing
$srif{responselist}";

for (my $i = 0; $i < scalar($j); $i++) {
chomp($files_found[$i]);
print RL "+$files_found[$i]\n";
w_log("Found file: $files_found[$i]");
}
close RL;
Поигрался с ковычками $srif{responselist}, $srif{'responselist'} и "$srif...."
не помогло...
system "echo $files_found[$i] > $srif{'responselist'}";
Сделал так, тоже не помогло...

В ЧЕМ ПРОБЛЕМА?

Всего наилучшего, Mikhail

[Mikhail Stakhanov]

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

Ответ на сообщение Mikhail Stakhanov (2:5020/932.1) к All, написанное 18
апр 19 в 21:36:
MS> Вот это работает:
MS> `grep -v '*' $SRIFI{ 'requestlist' } | sed -e 's/
MS> //' -e 's/\?/\./g' -e 's/^/\\//' -e 's/\$/\$/' | grep -if - $filelist
MS> 2>/dev/null | sed 's/^/+/' > $SRIFI{ 'responselist' }`;

MS> просто привожу строчку целиком, тут все sed не важны.

MS> А вот это нет:
MS> open RL, ">".$srif{'responselist'} or die "System error $! of
MS> writing $srif{responselist}";

MS> for (my $i = 0; $i < scalar($j); $i++) {
MS> chomp($files_found[$i]);
MS> print RL "+$files_found[$i]\n";
MS> w_log("Found file: $files_found[$i]");
MS> }
MS> close RL;
MS> Поигрался с ковычками $srif{responselist}, $srif{'responselist'} и
MS> "$srif...." не помогло...
MS> system "echo $files_found[$i] >
MS> $srif{'responselist'}"; Сделал так, тоже не помогло...

MS> В ЧЕМ ПРОБЛЕМА?

попробывал binmode STDOUT, ecnoding(CP855 ... Latin1 ); не помогло
перевел весь скрипт в us-ascii iconv тоже не помогло....
Что еще ?

Всего наилучшего, Mikhail

[Eugene Grosbein]

18 апр. 2019, четверг, в 19:36 NOVT, Mikhail Stakhanov написал(а):

MS> А вот это нет:

MS> open RL, ">".$srif{'responselist'} or die "System error $! of
MS> writing
MS> $srif{responselist}";

MS> for (my $i = 0; $i < scalar($j); $i++) {
MS> chomp($files_found[$i]);
MS> print RL "+$files_found[$i]\n";
MS> w_log("Found file: $files_found[$i]");
MS> }
MS> close RL;

MS> Поигрался с ковычками $srif{responselist}, $srif{'responselist'} и
MS> "$srif...."
MS> не помогло...

MS> system "echo $files_found[$i] >
MS> $srif{'responselist'}";

MS> Сделал так, тоже не помогло...
MS> В ЧЕМ ПРОБЛЕМА?

Так не сообщают о проблеме. Телепатов нет, какие там у тебя входные данные,
какой получается результат и какого результата ты ожидал - никто не знает,
так что и сказать тебе нечего.

Eugene
--
Однажды, будучи ещё мальчишкой, я был на каникулах и прогуливался вдоль реки.
Я увидел выдру с выводком. Весьма умилительное зрелище, думаю, вы согласитесь
со мной. Выдра нырнула и поймала жирного лосося, которого она с трудом
выволокла на ствол полузатопленного дерева и принялась пожирать, разумеется,
заживо. Из распоротого брюха лосося вывалилась икра, о, я до сих пор помню
чудесный розовый цвет этих икринок, к которым тут же бросились маленькие выдры,
ссорясь между собой за лакомство. Чудо природы: мать и дети, пожирающие
мать и детей. Вот тогда я и познал впервые, что есть зло. Оно встроено в саму
природу вселенной.

[Eugene Grosbein]

22 апр. 2019, понедельник, в 11:00 NOVT, Mikhail Stakhanov написал(а):

>>---=== Куть офф "strif.pl" ===---

MS> в чем ошибка ?

Даже пытаться не будут декодировать, как в прошлый раз делал.
Hикаких вводных, никакой информации о входных данных, о том, что ожидается
и что на самом деле получается. Hе надо так.

Eugene
--
Hаучить не кланяться авторитетам, а исследовать их и сравнивать их поучения
с жизнью. Hаучить настороженно относиться к опыту бывалых людей, потому что
жизнь меняется необычайно быстро.

[Mikhail Stakhanov]

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

Ответ на сообщение Eugene Grosbein (2:5006/1) к Mikhail Stakhanov,
написанное 23 апр 19 в 15:07:

EG> 22 апр. 2019, понедельник, в 11:00 NOVT, Mikhail Stakhanov написал(а):

>>> ---=== Куть офф "strif.pl" ===---

MS>> в чем ошибка ?

EG> Даже пытаться не будут декодировать, как в прошлый раз делал.
EG> Hикаких вводных, никакой информации о входных данных, о том, что
EG> ожидается и что на самом деле получается. Hе надо так.
Объясняю.
qico запускает скрипт 1.pl /tmp/qfreq.UID
далее скрипт читает этот файл:
вид его:
Имя_параметра значение
.
Это файл имеет 2 нужных параметра
requestfile
responsefile

requestfile - это файл в котором передается запрашиваемые файлы(файл)
responsefile -это файл в который мы по обработке скрипта должны положить то что
мы нашли.
Мы делаем в моем скрипте readconfig -> на выходе список {key} -> value из
qfreq.
w_log - Запись в лог.

1й скрипт msrif работает. Т.е. отрабатывает и qico передает все что нашел.
2й скрипт strif тоже создает на выходе файл, но почему-то qico виснет.
Ubuntu 32bit система
файловая система Linux LVM 8e
что еще нужно описать ?



Всего наилучшего, Mikhail