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

bianca
 2009-11-06 17:41
#127926 #127926
User since
2009-09-13
7016 Artikel
BenutzerIn

user image
Ja, das gefällt mir schon sehr gut, habs mal fertig gemacht:

Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

#!/usr/bin/perl -w 
use strict;
use warnings;
use utf8;
use open ':encoding(UTF-8)';
use open ':std';

for my $module ( @ARGV ) {
        eval "use $module";
        if ($@) {
                print "Modul does not exists"
        }
        else {
                print "$module => ". $module->VERSION . "\n";
        }
}



Code: (dl )
1
2
3
4
D:\Arbeit\perltest>perl module_inventar.pl Data::Dumper
Data::Dumper => 2.121_04

D:\Arbeit\perltest>


Nun noch die Frage: Wie kann ich das modifizieren, dass mir das Script von ALLEN in der Umgebung installierten Perl Modulen die jeweiligen Namen und Versionen ausgibt, damit ich quasi ein Inventar machen kann?

Danke Dir
10 print "Hallo"
20 goto 10

View full thread Modulversion wird als undef ausgegeben