The OpenNET Project / Index page

[ новости /+++ | форум | wiki | теги | ]

Как получить имена подпрограмм Perl модуля
print join("\n",&get_sub_list);
sub go{}
sub test1{}
package sublist;
sub main::get_sub_list{
	no warnings;
	my ($code,@fn);
	foreach (keys(%main::)){
		next unless /^[\w_]/;
		push(@fn,$_) if eval("defined(*main::$_"."{CODE})");
	}
	use warnings;
	@fn
}
 
22.01.2003 , Автор: whirlwind.ru , Источник: http://whirlwind.ru/give/?oid=161...
Ключи: less, pri, print, pack, perl
Раздел:    Корень / Программисту и web-разработчику / Perl / Функции и модули в Perl

 Добавить комментарий
Имя:
E-Mail:
Заголовок:
Текст:




Спонсоры:
Слёрм
Inferno Solutions
Hosting by Ihor
Хостинг:

Закладки на сайте
Проследить за страницей
Created 1996-2019 by Maxim Chirkov
Добавить, Поддержать, Вебмастеру