VPF::Помогите перенести данные с одного блока в другой.

ccoll

Дата 21.10.2011, 11:08 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 11.3.2010

Репутация: нет
Всего: нет

Вот кусок программы:

Код

  
 $repp="$mmday.$monn.$year";

    if ($content[$q]!~m|^$repp.*\S+Total|i)
{

        if (($content[$q]=~m|^$repp|i) or ($content[$q]=~m|^Name|i))
            {

            if (is_local(@config,$1)!=0)
                {
                $b++;
                $ret = up ($files[$i],$1,"out");
                $dd=1;

print "$content[$q]"; #Если ставлю тут то идёт вывод данных

                }

}
          }
        elsif ($content[$q]=~m|^Sub|i)
            {
            $flag_to_mails = 0;
            }

print "$content[$q]"; #А если тут эти данные не получаю, как их сюда передать заранее благодарю.

Это сообщение отредактировал(а) ccoll - 21.10.2011, 13:16

arto

Дата 21.10.2011, 12:07 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1495
Регистрация: 31.10.2004

Репутация: 38
Всего: 40

а какя проблема?
$content[$q] у вас в зоне видимости. или вы привели не весь код.

Ramirez

Дата 21.10.2011, 12:09 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 305
Регистрация: 18.1.2005
Где: Moscow, ExUSSR

Репутация: 4
Всего: 5

эээ "кто на ком стоял?"(с)

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

Это сообщение отредактировал(а) Ramirez - 21.10.2011, 13:33

ccoll

Дата 21.10.2011, 13:19 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 11.3.2010

Репутация: нет
Всего: нет

Попробую задать вопрос по другому, как можно данные которые обработались:

и выводятся в пункте №15 (print "$content[$q]"; #Если ставлю тут то идёт вывод данных)

передать их в пункт №26 (print "$content[$q]"; )

Вот это выводиться в пункте №15:

18.10.2011 15:52:41 1=REMOVED
18.10.2011 15:52:41 2=ADDED

А в пункте 26 это уже не выводится.

arto

Дата 21.10.2011, 13:25 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1495
Регистрация: 31.10.2004

Репутация: 38
Всего: 40

в такой постановке задачи -- усилием мысли.
а так -- телепаты в отпуске.

ginnie

Дата 21.10.2011, 15:21 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 1287
Регистрация: 6.1.2008
Где: Москва

Репутация: 38
Всего: 49

ccoll, поменяйте выводящий код на

Код


print "1:$q:$content[$q]";

Код


print "2:$q:$content[$q]";

и покажите, что выведется

Это сообщение отредактировал(а) ginnie - 21.10.2011, 15:21

--------------------

Написать код, понятный компьютеру, может каждый, но только хорошие программисты пишут код, понятный людям. (Мартин Фаулер. Рефакторинг)

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »