polys.pl

[Steffen]

Hallo

Ist es eigendlich mögllich das ein Perl / cgi ein Bild kompriiert?

Das zip Dateien mit sreedsheet angelegt werden habe ich schon geschafft.

Habe mal gehört das man mit spreetsheet komprimieren kann.

mit dem use GD; hat das nicht geklappt.

Vieleicht wisst Ihr einen Rat?
Vielen Dank im Voraus Steffen

[Struppi]

Ist es eigendlich mögllich das ein Perl / cgi ein Bild kompriiert?

Ja, mit Perl ist alles möglich ;-)

mit dem use GD; hat das nicht geklappt.

Wieso nicht?

Vieleicht wisst Ihr einen Rat?

Dann müßtest du dein Problem etwas konkretisieren

Struppi.

[Steffen]

Hi Struppi

Erstmal vielen Dank für deine Antwort

Also folgenden code habe ich im Internet gefunden, wobei ich aber nicht genau weis ob es komprimiert sondern nur die Größe verändert.
Auf Jedenfall sollte use GD; schonmal richtig sein.

So kam anfangs die Fehlermeldung: Can't locate GD.pm
also habe ich das Modul CPAN geholt und die GD.pm im cgi-bin gelegt nun kommt die Fehlermeldung GD/Image.pm und habe den ordner GD mit Inhalt im cgi-bin gelegt aber die Fehlermeldung bleibt.

#! /usr/bin/perl
use CGI::Carp qw(fatalsToBrowser);

use GD;

$filename = "syl3.jpg";

print "Content-Type: text/html\n\n";

print "Bitte warten verkleinere Bild";

$image = GD::Image->newFromJpeg($filename);
($width, $height)=$image->getBounds( );

$new_width = 70;
$new_height = $new_width * $height / $width;

$newimage = GD::Image->new($new_width,$new_height);
$newimage->copyResized($image,0,0,0,0,$new_width,$new_height,$width,$height);

$quality = 60;
$jpegdata = $newimage->jpeg($quality);

open(BILD,">test.jpg");
binmode BILD;
print BILD $jpegdata;
close(BILD);

print "Fertig";

exit;

[Steffen]

Hi Struppi

Also jetzt kommt die Meldung Can't locate GD/Image.pm in @INC (@INC contains: /usr/lib/perl5/

obwohl der Ordner GD installiert ist

Vielen Dank
Steffen

[Struppi]

So kam anfangs die Fehlermeldung: Can't locate GD.pm
also habe ich das Modul CPAN geholt und die GD.pm im cgi-bin gelegt ...

Das reicht nicht. Du musst das Modul installieren. Was für ein Betriebsystem hast du denn?

Struppi.

[Steffen]

Hi Struppi

Das reicht nicht. Du musst das Modul installieren. Was für ein Betriebsystem hast du denn?

Key:SERVER_SOFTWARE , Wert: Apache/2.2.4 (Linux/SUSE)

Stratoserver mit Benutzeroberfläche Plesk und natürlich auf FTP Zugang

Danke
Steffen

[Struppi]

Das reicht nicht. Du musst das Modul installieren. Was für ein Betriebsystem hast du denn?

Key:SERVER_SOFTWARE , Wert: Apache/2.2.4 (Linux/SUSE)
Stratoserver mit Benutzeroberfläche Plesk und natürlich auf FTP Zugang

Damit müßtest du Module installieren können. Meine Erfahrungen unter Linux sind aber auch nur Rudimentär. Das hab ich gefunden auf der CPAN Seite: http://www.cpan.org/misc/cpan-faq.html#How_install_Perl_modules das müßte eigentlich helfen.

Struppi.

[hotti]

hi,

Das reicht nicht. Du musst das Modul installieren. Was für ein Betriebsystem hast du denn?

Key:SERVER_SOFTWARE , Wert: Apache/2.2.4 (Linux/SUSE)

Stratoserver mit Benutzeroberfläche Plesk und natürlich auf FTP Zugang

Das wird nicht reichen, um das GD installieren zu können, dazu brauchts root-Berechtigung.

Hotti

[CPAN]

Diese Antwort ist falsch. Man braucht generell nicht root, um Module zu installieren.

[Steffen]

Hallo

Sorry, weis nicht wie das polys.pl im Title gelangt ist sollte stehen:

img mit Perl komprimieren

Vielen Dank
Steffen