Perl question

[uncle_Pasha]

М.б. кто подскажет?

Как мне узнать, определена ли функция, скажем 'f' в текущем контексте, без попытки ее вызова?
т.е. имя сплавляется как переменная, хотелось бы получить ответ - есть такая функция или нет... спасибо.

Удачи!

[Palych]

if (defined($$f)) ???

[f_evgeny]

М.б. кто подскажет?

Как мне узнать, определена ли функция, скажем 'f' в текущем контексте, без попытки ее вызова?
т.е. имя сплавляется как переменная, хотелось бы получить ответ - есть такая функция или нет... спасибо.

Удачи!

#! /usr/bin/perl -w

$sub_name = "my_sub";

if(defined(&$sub_name)) {
print "defined\n";
}else{
print "not defined\n";
}

sub my_sub {
return(1);
}

[uncle_Pasha]

if (defined($$f)) ???

Он всегда не defined
Удачи!

[uncle_Pasha]

#! /usr/bin/perl -w

$sub_name = "my_sub";

if(defined(&$sub_name)) {
print "defined\n";
}else{
print "not defined\n";
}

sub my_sub {
return(1);
}

Теперь пишем:
$sub_name = 'substr';

получаем:
not defined

Удачи!

[slozovsk]

Это вам не LISP. В LISP-е можно залезть в свойства переменной (атома).

[Palych]

Я в таких случаях применяю правило:
Если в данной системе ето сделать геморройно - значит мне ето не надо.
Попытки обойти ограничания, наставить костыли и т.д. как правило ни к чему хорошему не приводят...

[uncle_Pasha]

Это вам не LISP. В LISP-е можно залезть в свойства переменной (атома).

Ну залезете Вы в свойства переменной типа строки, чем это поможет?

Удачи!

[uncle_Pasha]

Я в таких случаях применяю правило:
Если в данной системе ето сделать геморройно - значит мне ето не надо.

Ну очень хочется...
просто сделал я парсер на perl, в котором в т.ч. можно пользоваться функциями определенными как пользователем (проверить эти имена проблем нет), так и встроенными функциями perl. Хотелось бы отловить опечатки пользователя на этапе компиляции, а не исполнения.
Воспользоваться правилом "не больно-то и хотелось", конечно, никогда не поздно. (так оно сейчас и работает )

Удачи!

[f_evgeny]

Я в таких случаях применяю правило:
Если в данной системе ето сделать геморройно - значит мне ето не надо.

Ну очень хочется...
просто сделал я парсер на perl, в котором в т.ч. можно пользоваться функциями определенными как пользователем (проверить эти имена проблем нет), так и встроенными функциями perl. Хотелось бы отловить опечатки пользователя на этапе компиляции, а не исполнения.
Воспользоваться правилом "не больно-то и хотелось", конечно, никогда не поздно. (так оно сейчас и работает )

Удачи!

1. "Против лома нет приема" - самому набить список ключевых слов.
2. Может не совсем то. Но тоже ничего. Воспользоваться функцией AUTOLOAD для перехвата ошибок.

[slozovsk]

Это вам не LISP. В LISP-е можно залезть в свойства переменной (атома).

Ну залезете Вы в свойства переменной типа строки, чем это поможет?

Удачи!

А тем, что это означает доступность всех мета-данных (включая и текст подпрограммы). Т.е. раз LISP интерпретатор может понять, что это функция и вычислить ее значение, значит и программа может сделать то же самое, поскольку имеет доступ к тем же самым мета-данным. Может даже проанализировать текст функции, если надо - вся информация есть.

Вот один из примеров - http://www.slac.stanford.edu/comp/unix/ ... tml#SEC149

[Palych]

Perl vrode Object Oriented?
Chto ezhali nabit' takuyu tablichku:

%cmap{"doThis"} = new DoThisCommand(); // tochnyj syntaxis ne znayu
%cmap{"doThat"} = new DoThatCommand();

I vyzyvat':

$command = $cmap{$commandString};
$command.doIt();

Pri etom:

class Command {
doIt() {}
}

class DoThisCommand extends Command {
doIt() {
.... // implementation
}
}
...

[slozovsk]

Perl vrode Object Oriented?
Chto ezhali nabit' takuyu tablichku:

%cmap{"doThis"} = new DoThisCommand(); // tochnyj syntaxis ne znayu
%cmap{"doThat"} = new DoThatCommand();

I vyzyvat':

$command = $cmap{$commandString};
$command.doIt();

Pri etom:

class Command {
doIt() {}
}

class DoThisCommand extends Command {
doIt() {
.... // implementation
}
}
...

Ну, без всякой объектно ориентированности можно функции загнать в хеш.

$functions{'f1'} = sub {...};

Но это работает только для своих функций, да и морока.

Посмотрел я что возращает ref(\&substr11111) - выдает, что подпрограмма (хотя substr11111 и не определена).

Автору топика:

Тут уже высказывалось мнение, что если чего-то в языке сделать нельзя, то вероятнее всего, оно вам и не надо. Может имеет смысл поделиться, для чего вам это надо?

[Sergey___K]

<перлчайник_on>
а можно попробовать взять reference
$subref=\&name
и что-то дальше сделать? (ну, на тип проверить...что ли)

<перлчайник_on_все_так_же>

[slozovsk]

<перлчайник_on>
а можно попробовать взять reference
$subref=\&name
и что-то дальше сделать? (ну, на тип проверить...что ли)

<перлчайник_on_все_так_же>

А я что сделал в предыдущем посте? ref(\&substr11111)