|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Mikhail Polykovsky 2:5020/400 28 Feb 2003 11:48:51
To : All
Subject : Передача функции
--------------------------------------------------------------------------------
Я хочу передать функцию как параметр. Где я ошибся?
#!perl -w
use strict;
my_sub( { print join '|', @_ }, 'asd');
sub my_sub{
$sub = shift;
$string = shift;
@arr = split //, $string;
&$sub ( @arr ); # error
}
Отвечает "Not a CODE reference"
Как правильно?
(кстати, правильно ли я понимаю, что функции типа map, grep устроены
примерно так же в смысле вызова?)
--
Отправлено через сервер Форумы@mail.ru - http://talk.mail.ru
--- ifmail v.2.15dev5
* Origin: UTC (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
