Thread Modulversion wird als undef ausgegeben (19 answers)
Opened by pktm at 2009-11-06 13:22

renee
 2009-11-06 14:59
#127912 #127912
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
Den Teil
Code: (dl )
1
2
3
4
5
6
7
8
9
10
use Class::Load qw(try_load_class);

for my $module ( @ARGV ) {
if ( try_load_class($module) ) {
say "$module => ", $module->VERSION;
}
else {
say "$module => Does not exists";
}
}
kann man auch so schreiben:

Code: (dl )
1
2
3
4
5
6
7
8
9
for my $module ( @ARGV ) {
say "try to load $module";
eval{
require $module;
1;
} and do {
say "$module version: " . $module->VERSION;
};
}


(ungetestet)
OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

View full thread Modulversion wird als undef ausgegeben