Читаю файл. В нем есть несколько строк, которые мне нужно сцепить в одну:

Object: FCS_HQ
Delay: 245 min
Search directory: /data/processed/hq/


ну и далее описание других объектов

Мне нужно каждый объект записать одной строкой:

FCS_HQ|245 min|/data/processed/hq/|

Блин, торможу, ничего не получается.. Пытаюсь вот так:

my $str1 = "";
my $str2 = "";

# начинаю читать массив
foreach(@msg_arr){

# ищу вхождение строки Object:, записываю значение в переменную
$str1 = substr @msg_arr[0],0,10,;
if ( $str1 eq " Object:") {
$str2 = (substr @msg_arr[0],29).'|';
}

# ищу вхождение строки Delay:, ДОБАВЛЯЮ ее значение в переменную
$str1 = substr @msg_arr[0],0,9;
f ( $str1 eq " Delay:") {
$str2 = $str2.(substr @msg_arr[0],29).'|';
}

# добавляю третью и в хвост дописываю ||| - это сигнал для меня что описание объекта кончилось
$str1 = substr @msg_arr[0],0,20;
if ( $str1 eq " Search directory:") {
$str2 = $str2.(substr @msg_arr[0],29).'|||';
}

# ловлю этот сигнал и пытаюсь напечатать описание объекта одной строкой
if (substr $str2,-3 eq "|||") {
print "$str2\n";
$str2 = ""; # очищаю, чтобы до тех пор, пока не встречу следующий объект ничего не печатать
}

нифига! print "$str2\n"; - печатается несколько строк.

ну т.е.

FCS_HQ|
245 min|
/data/processed/hq/|||

Где я обул лыжи????

PS: я на перле только только начал. Нужно переделать чужие программы, мучаюсь.

S_Andrey_A,

Код конечно АДЪ, я в синтаксис еще никак не въеду (до этого писал на С, Яве, да PL/SQL).

Тут какая-то фигня непонятная. Я для эксперименту добавил явно объявленную переменную:


Для первого прохода $str3 = '1';

для второго $str3 = $str3.'2';

для третьего соответственно $str3 = $str3.'3';

Вывод получил такой:


STF_HQ|
1
35 min|
2
/data/processed/nf/|||
3


ну и так далее...


ВООБЩЕ НИЧЕГО НЕ ПОНИМАЮ!!!

Печать происходит вот такой конструкцией (реагирую на ||| - пора печатать)

if (substr $str2,-3 eq "|||") {
print "$str2\n";
print "$str3\n";
$str2 = "";
$str3 = "";
}

ОНО ЧЕГО ПЕРЕМЕШИВАЕТСЯ-ТО ????

Да, забыл указать: на вход процедуры прилетает переменная, в которой одна длинющщая строка.
Эту переменную автор преобразовывает в массив my @msg_arr = split(/\n/, $msg);
Ну и далее foreach(@msg_arr){
Если его печатать print(@msg_arr[0]); как раз и получаются многострочные описания объектов. Строки идут по порядку, сначала имя объекта, потом его свойства.

Может тут собака какая...

volodin661, спасибо!

Я неправильно сказал, прошу прощения. Я повнимательней порылся в коде, в эту функцию, которую мне нужно поправить, прилетает простая переменная, $msg_arg.

Эту переменную автор преобразовывает в массив my @msg_arr = split(/\n/, $msg);
Ну и далее foreach(@msg_arr){
идет обработка
}

Если его печатать print(@msg_arr[0]); как раз и получаются многострочные описания объектов. Строки идут по порядку, сначала имя объекта, потом его свойства. Мне нужно этот цикл переделать так, чтобы перехватывать названия объектов и их атрибуты, ну и выводить "один объект - одна строка".

В этом случае тоже надо расцеплять-сцеплять?

volodin661,

Ругается... Чего ему надо?

Scalar found where operator expected at /home/usnmp/scripts/sdi/bin/sdi_env.pm line 179, near "':' $str1"
(Missing operator before $str1?)

179 строка это вот: my ($key, $val) = split ':' $str1;

Код такой:

my @msg_arr = split(/\n/, $msg);

my $str1 = "";
my @attributes = ( 'Object', 'Delay', 'Search directory' );
my %x=();

foreach(@msg_arr){
my $tmp = $_;
#print $tmp;

# Print to standart output
$str1 = @msg_arr[0];
my ($key, $val) = split ':' $str1;
next if not $key;
$x{$key} = $val;
if ( grep ( defined($x{$_}), @attributes) == 3 ) {

if ( grep ( defined($x{$_})), @attributes) == 3 ) {
print join '|', map $x{$_}, @attributes;
%x = ();
}
}

прошу обратить внимание: я не читаю файл в этой процедуре, мне приходит строка, которую превращают в массив @msg_arr. И если его нулевые элементы печатать в цикле, получим файл, где объекты распечатаны многострочно.

Сорри, запятую не заметил.

Теперь не ругается, но и ничего не выдает. Наверное, дело в $_
Что нужно указать явно?

О, начало получаться, всем СПАСИБО!!!!