VPF::Sort script by name sub - Форум программистов

DaemonSuw

Дата 12.5.2009, 18:19 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 155
Регистрация: 11.3.2008

Репутация: 3
Всего: 3

Нужно отсортировать в скрипте (pm класс) сабы по алфавиту! Никто не встречал готовых решений?

arto

Дата 12.5.2009, 20:05 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1495
Регистрация: 31.10.2004

Репутация: 38
Всего: 40

# perl -MData::Dumper -e 'print Dumper \%Data::Dumper::'
$VAR1 = {
          'Seen' => *Data::Dumper::Seen,
          '__ANON__' => *Data::Dumper::__ANON__,
          'post' => *Data::Dumper::post,
          'refaddr_format' => *Data::Dumper::refaddr_format,
          'Toaster' => *Data::Dumper::Toaster,
          'Varname' => *Data::Dumper::Varname,
          'pad' => *Data::Dumper::pad,
          'Values' => *Data::Dumper::Values,
          'Dumpf' => *Data::Dumper::Dumpf,
          'new' => *Data::Dumper::new,
...
#

gcc

Дата 12.5.2009, 21:07 (ссылка)

(нет голосов)

Загрузка ...

Агент алкомафии

Профиль
Группа: Участник
Сообщений: 2691
Регистрация: 25.4.2008
Где: %&й

Репутация: 1
Всего: 17

Код


#!/usr/bin/perl
use DBI;
print join("\n",&get_sub_list('DBI'));
sub get_sub_list{
  my $m=shift;
  no warnings;
  my ($code,@fn,@a);
  print $m;
  eval('@a=keys(%'.$m.'::);');
  foreach (@a){
    next unless /^[\w_]/;
    push(@fn,$_) if eval('defined(*'.$m.'::'.$_.'{CODE})');
  }
  use warnings;
  @fn
}

--------------------

Perl FAQ
freelance
perl, jquery, js, php
perl, jquery

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »