ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / PHP, Perl, Python [игнор отключен] [закрыт для гостей] / (Perl) Передать список аргументов как список
3 сообщений из 3, страница 1 из 1
(Perl) Передать список аргументов как список
    #38552883
Alibek B
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alibek B
Участник
Есть функция и несколько врапперов к ней:
Код: php
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
sub _proc($$$;$$) {
  my $arg1 = shift;
  my $arg2 = shift;
  ...
}
sub proc1($$$) {
  my $msg = shift;
  print "$msg\n";
  return &_proc('proc1', @_);
}
sub proc2($$$;$$) {
  my $msg = shift;
  print "$msg\n";
  return &_proc('proc2', @_);
}


Так не работает, в _proc передается только первый аргумент procX.
Такой способ возможен? Или нужно писать return &_proc('procX',$_[0],$_[1],...)?
________________________
Мы смотрим с оптимизмом...
...в оптический прицел.
...
Рейтинг: 0 / 0
07.02.2014, 10:26
| Ответить | Цитировать | Написать  
(Perl) Передать список аргументов как список
    #38553549
Фотография Black
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Black
Участник
Вопрос не совсем понял ...

Код: php
1.
2.
3.
4.
sub proc1($$$) {
  print sprintf("%s - %s - %s\n", @_);
  return &_proc('proc1', @_);
}
...
Рейтинг: 0 / 0
07.02.2014, 15:06
| Ответить | Цитировать | Написать  
(Perl) Передать список аргументов как список
    #38553691
Alibek B
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alibek B
Участник
Есть основная процедура, принимающая 3 параметра (+2 опциональных).
Есть вспомогательные процедуры-обертки, которые принимают несколько параметров (от 3 до 5). Первый параметр они выводят в лог, а остальные параметры используют для вызова основной процедуры.
У меня почему-то в процедуру _proc передавался только первый аргумент, передаваемый из procX.
Но сейчас уже все нормально.
...
Рейтинг: 0 / 0
07.02.2014, 16:06
| Ответить | Цитировать | Написать  
3 сообщений из 3, страница 1 из 1
Форумы / PHP, Perl, Python [игнор отключен] [закрыт для гостей] / (Perl) Передать список аргументов как список
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]