OpenForum RSS: ��

�� (bibi)

Thu, 23 Apr 2009 08:46:21 GMT

��, ��, ��

� �� , �� ?

�� ?

��:

use MyPr::Form::Bla-bla;
use MyPr::Valid::Bla-bla;
use MyPr::Session::Bla-bla;
use MyPr::Bla-bla::Bla-bla;
�� 30-40
...............................

if (defined $param->{form} ) {

my @m = join("",&get_sub_list('MyPr::Form::'.$param->(form)));

if (defined @m) {
my @vm = join("",&get_sub_list('MyPr::Valid::'.$param->(form)));

foreash (@vm) {
my $obj = 'MyPr::Valid::'.$param->(form)->new($param);
$obj->$_();
}

}

foreash (@m) {

my $obj = 'MyPr::Form::'.$param->(form)->new();

$obj->$_();

} else {

if ($param->{global-bla}) {

my @mb = join("",&get_sub_list('MyPr::Bla-bla::'.$param->(form)));

foreash (@mb) {

my $obj = 'MyPr::Bla-bla::'.$param->(form)->new();

$obj->$_();

}

}

�� (angra)

Thu, 23 Apr 2009 01:42:37 GMT

�� , �� get_sub_list �� namespace, � �� DBI.
#!/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
}
�� DBI �� .

main:: �� namespace �� , �� , �� package.

�� (bibi)

Thu, 23 Apr 2009 01:41:09 GMT

��

(caller(1))[3]

1 - �� , 0 - ��
3 - ��

http://perldoc.perl.org/functions/caller.html

�� (bibi)

Thu, 23 Apr 2009 01:19:45 GMT

� �� , ��

�� http://www.opennet.ru/tips/info/415.shtml

� � �� main ��

��. ��... � �� 30-40 ��

�� (��-�� SUPER �� next)

�� -�� index.pl � �� -�� ?
� �� -�� (�� , ��) ....

�� dispatcher �� catalyst?

�� ?

�� (angra)

Wed, 22 Apr 2009 04:59:53 GMT

>��

�� . �� , �� .
�� , �� , �� , �� , � �� "��" ��.

OpenForum RSS: ��� ������

��� ������ (bibi)

��� ������ (angra)

��� ������ (bibi)

��� ������ (bibi)

��� ������ (angra)

OpenForum RSS: ��

�� (bibi)

�� (angra)

�� (bibi)

�� (bibi)

�� (angra)