Leser: 1
5 Einträge, 1 Seite |
use ImageMagick;
1
2
3
4
5
6
7
8
9
10
11
12
#!/usr/bin/perl -w
use strict;
use warnings;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use lib "/usr/bin/convert";
use lib "/usr/bin";
use Image::Magick;
print "Content-type: text/html\n\n";
print "Test erfolgreich!";
use Magick;
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
#!/usr/bin/perl -w
use strict;
use warnings;
use CGI;
my $cgi = new CGI;
print $cgi->header();
print $cgi->start_html();
foreach my $i (@INC) {
opendir (DIR, "$i");
print "<p><b>$i</b>";
while (my $datei = readdir(DIR)) { print "<br>$datei"; }
print "</p><hr>";
}
print $cgi->end_html();
5 Einträge, 1 Seite |