Thread Perl-Modul nur einbinden, wenn auch installiert? (25 answers)
Opened by x-man at 2007-01-05 01:16

x-man
 2007-01-05 01:16
#9454 #9454
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 )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
#!/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 )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
#!/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

<!--EDIT|renee|1167987607-->

View full thread Perl-Modul nur einbinden, wenn auch installiert?