Perl-Modul nur einbinden, wenn auch installiert? - #9454 (Perl/CGI)

x-man

2007-01-05 01:16

User since
2003-09-11
67 Artikel
BenutzerIn
[default_avatar]

Ich habe hier 2 Code-Beispiele. Beide erzeugen Fehlermeldung. Ist es möglich, ein Modul erst einzubinden, wenn sichergestellt wird, dass es auch installiert ist.

CODE 1:
#########################################

Code: (dl )

#!/usr/bin/perl              &n
bsp;     
use CGI::Carp qw(fatalsToBrowser);
use CGI qw(:standard);
eval "use GD";
if(!$@){
             &start;
}
else{
             die "Modul nicht installiert!";
}
sub start{
    print "Content-type: image/png\n\n";
    $image = new GD::Image(100,20);  
    $rot = $image->colorAllocate(255,0,0); 
    $weiss = $image->colorAllocate(255,255,255);
    $image->string(gdMediumBoldFont,3,5,"Test",$weiss);
    binmode STDOUT;
    print $image->jpeg;
}

CODE 2
########################################

Code: (dl )

#!/usr/bin/perl              &n
bsp; 
use CGI::Carp qw(fatalsToBrowser);
use CGI qw(:standard);
use GD;
&start;
sub start{
    print "Content-type: image/png\n\n";
    $image = new GD::Image(100,20);  
    $rot = $image->colorAllocate(255,0,0); 
    $weiss = $image->colorAllocate(255,255,255);
    $image->string(gdMediumBoldFont,3,5,"Test",$weiss);
    binmode STDOUT;
    print $image->jpeg;
}

\n\n