Re: [MacPerl] Perl Scope problem

Поиск
Список
Период
Сортировка
От hciR nellA
Тема Re: [MacPerl] Perl Scope problem
Дата
Msg-id 200105030357.TAA05885@alaska.net
обсуждение исходный текст
Ответ на Perl Scope problem  (Randall Perry <rgp@systame.com>)
Список pgsql-general
Дерево обсуждения 
think this will work ...

use strict;
my ($cust_data) = {};
my ($condition, $condition2);

while ($condition) {
     #...

     $cust_data = get_cust_data();

     if ($condition2) {
         if (send_mail($cust_data)) {
         print $cust_data->{'customer'};
        # ...
        }

     }
     else {

         if (send_mail($cust_data)) {
         print $cust_data->{'customer'};
             #...

             }
         }
}

> use strict;
> $cust_data = {};
>
> while ($condition) {
>     ...
>
>     $cust_data = get_cust_data();
>
>     if ($condition2) {
>         if (send_mail($cust_data)) {
>         print $cust_data->{'customer'};
>        ...
>
>     }
>     else {
>
>         if (send_mail($cust_data)) {
>         print $cust_data->{'customer'};
>         ...
>
>         }
> }
- hcir
mailto:g3pb@alaska.net
Made with a Mac!

В списке pgsql-general по дате отправления: