Perl question

[uncle_Pasha]

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

Дык, сказал же вроде...
Есть парсер некого простого языка написанного на перл, который позволяет дергать API системы, использовать определяемые пользователем и встроенные в Perl функции, которые принимают скалярные параметры (количество которых к моменту проверки известно) и от которых ожидается возвращаемое значение - скаляр.
Хотелость бы отсечь опечатки пользователя на этапе компиляции текста программы на этом простом языке.
Никаких других средств, кроме самого перла использовать нет возможности..

Удачи!

[slozovsk]

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

Дык, сказал же вроде...
Есть парсер некого простого языка написанного на перл, который позволяет дергать API системы, использовать определяемые пользователем и встроенные в Perl функции, которые принимают скалярные параметры (количество которых к моменту проверки известно) и от которых ожидается возвращаемое значение - скаляр.
Хотелость бы отсечь опечатки пользователя на этапе компиляции текста программы на этом простом языке.
Никаких других средств, кроме самого перла использовать нет возможности..

Удачи!

В самом Перле функций немного - явно вбиваем их названия - в хеш или куда надо. Все имена новых функциий определяемых пользователем на вашем языке - парсер (интерпретатор) добавляет туда же.

[uncle_Pasha]

В самом Перле функций немного - явно вбиваем их названия - в хеш или куда надо.

Похоже, все к этому и идет...

Удачи!

[slozovsk]

В самом Перле функций немного - явно вбиваем их названия - в хеш или куда надо.

Похоже, все к этому и идет...

Удачи!

Если не надо цеплять внешних пакетов - то и говорить не о чем. Вот я только сегодня оновлял список syscalls к ядру Линукс. Таблица из 200 или около того названий и описания параметров. Ну, пришлось руками поработать Не все ж головой только

Могу идею подкинуть - берем список функций из документации - из странички удалем весь текст - оставляем названия функций

Я свою таблицу делал похожим образом - только список выдрал из ассемблерного исходника. (мне еще и порядок следования функций в таблице важен).

[Sergey___K]

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

Так Перл же write-only.

[Hatih]

Code: Select all

$sub_name = 'abc1';

if (exists ::->{$sub_name}) {
    print "Defined.\n";
} else {
    print "Not defined.\n";
}

[slozovsk]

Code: Select all

$sub_name = 'abc1';

if (exists ::->{$sub_name}) {
    print "Defined.\n";
} else {
    print "Not defined.\n";
}

Распечатка:

serge@targus:~ > perl
$sub_name = 'print';

if (exists ::->{$sub_name}) {
print "Defined.\n";
} else {
print "Not defined.\n";
}
Not defined.
serge@targus:~ >

[Hatih]

Code: Select all

sub abc
{
}

$sub_name = 'abc';

if (exists ::->{$sub_name}) {
    print "abc Defined.\n";
} else {
    print "abc Not defined.\n";
}

$sub_name = 'abcxxx';

if (exists ::->{$sub_name}) {
    print "abcxxx Defined.\n";
} else {
    print "abcxxx Not defined.\n";
}

abc Defined.
abcxxx Not defined.

[slozovsk]

...
abc Defined.
abcxxx Not defined.

Я же привел пример, когда ваш метод не работает. Как я понимаю, автору топика надо в первую очередь определять встроенные функции, с вновь определенными у него проблем нет.

сделал я парсер на perl, в котором в т.ч. можно пользоваться функциями определенными как пользователем (проверить эти имена проблем нет), так и встроенными функциями perl.

Не говоря о том, что нужно определить есть ли такая ФУНКЦИЯ.

serge@targus:~ > perl
$abc = 1;

$sub_name = 'abc';

if (exists ::->{$sub_name}) {
print "abc Defined.\n";
} else {
print "abc Not defined.\n";
}
abc Defined.
serge@targus:~ >

[zor0n]

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

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

Никуда не надо залезать:

(if (symbol-function (make-symbol mystr))
...

[Max]

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

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

Удачи!

sub mytst1 {

}

sub isDefined {
defined(*{$_[0]});
}

if (isDefined('mytst1')) {
print "mytst1 defined\n";
} else {
print "mytst1 is not defined\n";
}
if (isDefined('mytst2')) {
print "mytst2 defined\n";
} else {
print "mytst2 is not defined\n";
}


Результат выполнения:

C:\Perl\eg>perl example.pl
mytst1 defined
mytst2 is not defined

C:\Perl\eg>

[uncle_Pasha]

Результат выполнения:

C:\Perl\eg>perl example.pl
mytst1 defined
mytst2 is not defined

C:\Perl\eg>

Неужели Perl действительно только для писателей?
Это не пройдет, к примеру, с print, substr, etc,

Удачи!