Schrift
Start · Board · Webprogrammierung mit Perl · Webframeworks, Sonstige Fragen zur Webprogrammierung mit Perl
[thread]10413[/thread]

Error / Illegal division by zero / Image Magick (Seite 3)

Leser: 1


<< |< 1 2 3 4 5 6 >| >> 51 Einträge, 6 Seiten
Struppi
 2007-09-20 01:23
#99715 #99715
User since
2006-02-17
628 Artikel
BenutzerIn
[Homepage]
user image
oh, Entschuldigung vorhin war deine Antwort nicht in meiner Ansicht, keine Ahnung wo die plötzlich herkommt.

So wie du es beschreibst kann es nicht sein, irgendwo machst du was falsch in der Referenzierung des Bildes. Aber das läßt sich so nicht sagen.
Gast Gast
 2007-09-20 18:06
#99753 #99753
Upload File (cgi):
"
Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59

#!/usr/bin/perl
#use strict;
#use warnings;
use CGI qw/:standard/;
my $zielVerzeichnis = '/home/web6/html/tratsch/bilder/org';
$CGI::POST_MAX=1024 * 100;
my ($bildcode) = time;
my ($filename) = param('uploaded_file') || "";
my ($filehandle) = CGI::upload('uploaded_file');

print header, start_html;
print ("Org. Filename: $filename<BR>\n");
print ("Merken Sie sich den Bildcode : <b>$bildcode</b><BR>\<HR>\n");

my $serverFile = $zielVerzeichnis . "/" .
(split(/[\\\/]/, param('uploaded_file')))[-1];


print ("Datei wird übertragen ...<BR>\n");
my $buffer;
open (FILE,">$serverFile") or die $!;
binmode $filehandle;
binmode(FILE); # Nur relevant fuer Windows-Rechner
while (my $bytesread=read($filehandle,$buffer,1024))
        {
        print FILE $buffer;
        }
close (FILE);

my $serverfile2 = $zielVerzeichnis . "/" . $bildcode . "_" . $filename;
rename ($serverFile, $serverfile2);
chmod (0777, "$serverfile2");
print ("Datei wurde erfolgreich übertragen ...<BR>\n");


my $w1=600; #b
my $w2=400; #m
my $w3=120; #s

use Image::Magick;
my $image = Image::Magick->new;

print ("Lese $serverfile2 <BR>");
(my $width, my $height, my $size, my $format) = $image->Ping("$serverfile2");

print ("Breite: $width<BR>\n");
print ("Höhe: $height<BR>\n");
print ("Größe: $size<BR>\n");
print ("Format: $format<BR>\n");

my $h1=int(($w1 / $width)* $height);
$image1 = Image::Magick->new;
$image1->Read("$serverfile2");
print ("Lese $serverfile2");
$image1->Resize(width=>$w1, height=>$h1);
$image1->Set(quality=>70);
$image1->Write("/home/web6/html/tratsch/bilder/org/zzz.jpg");

print end_html;

"

Devision Fehler ist weg ! Warum eigentlicch ?!?
Bekomme aber keine return Werte ...
Breite Höhe etc ...
Bild wird hochgeladen aber nicht weiter verarbeitet.

eljot

Gast Gast
 2007-09-20 18:07
#99754 #99754
das muss vor den vorigen Eintrag, sorry ;-)

Sorry ich muss noch mal, es lässt mir keine ruhe, habe alles neu und etwas anders programmiert.

Aktueller Fehler (Ausgabe im Browser:
"
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
Org. Filename: cu42.JPG
Merken Sie sich den Bildcode : 1190284549
Datei wird übertragen ...
Datei wurde erfolgreich übertragen ...


Lese /home/web6/html/tratsch/bilder/org/1190284549_cu42.JPG
Breite:
Höhe:
Größe:
Format:

"

Upload File (html formular):
"
[html]<HTML>
<HEAD></HEAD>
<BODY>
<FORM METHOD="POST" ACTION="/cgi-bin/tratsch/upload_new.cgi"" ENCTYPE="multipart/form-data">
Datei auswaehlen:<BR>
<INPUT TYPE="file" NAME="uploaded_file" SIZE=30 MAXLENGTH=80> <INPUT TYPE="submit" NAME="button" VALUE="upload">
</FORM>
</BODY>
</HTML>
[/html]"
renee
 2007-09-20 18:13
#99755 #99755
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
Probier mal das "Ping" durch "Read" + "Get" zu ersetzen...
OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/
renee
 2007-09-20 18:13
#99756 #99756
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
Welche Version von Image::Magick hast Du eigentlich? Welches Betriebssystem? Perl-Version?
OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/
Gast Gast
 2007-09-20 18:58
#99760 #99760
Hallo,

read und get auch schon probiert:

my $image = new Image::Magick; (auch mal geändert)

print ("Lese $serverfile2 <BR>"); (geht !!)

print ("Bild: <img src='../../tratsch/bilder/org/$serverfilename' alt='bild fehlt'><BR>"); (geht !!)

#(my $width, my $height, my $size, my $format) = $image->Ping("$serverfile2"); (geht nicht !!)

#(my $width, my $height, my $size, my $format) = $image->Ping("../../tratsch/bilder/org/$serverfilename"); (geht nicht !!)


#($width, $height) = getimagesize($image); (geht nicht !!)

#$image->Read('../../tratsch/bilder/org/$serverfilename'); (geht nicht !!)
$image->Read('$serverfile2''); (geht nicht !!)

($width) = $image->Get('width');


print ("Breite: $width<BR>\n"); (kommt nix)
print ("Höhe: $height<BR>\n"); (kommt nix)
print ("Größe: $size<BR>\n"); (kommt nix)
print ("Format: $format<BR>\n"); (kommt nix)

Image Magick ist irgendwie nicht richtig installiert oder so !?
Nix was das betrifft geht ... Er meldet bei dem use aber auch kein Fehler.
Ich habe keine Lust mehr ;-(
Gast Gast
 2007-09-20 19:02
#99761 #99761
Hier meine Pakete:

ii imagemagick 6.2.4.5.dfsg1-0.14 Image manipulation programs


ii perl 5.8.8-7 Larry Wall's Practical Extraction and Report Language

ii perl-base 5.8.8-7 The Pathologically Eclectic Rubbish Lister

ii perl-modules 5.8.8-7 Core Perl modules

ii perlmagick 6.2.4.5.dfsg1-0.14 A perl interface to the libMagick graphics routines

Oh man wie kann ich das nur alles hut machen, ihr habt so viel Geduld und deid so hilsbereit . Danke !!
renee
 2007-09-20 19:22
#99763 #99763
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
Das hier funktioniert bei mir:
Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60

#!/usr/bin/perl

use strict;
use warnings;
use CGI qw/:standard/;
use Image::Magick;
use File::Copy qw(copy);

$CGI::POST_MAX= 1024 * 10000;

my $zielVerzeichnis = '../../htdocs/images/community/';
my $bildcode        = time;
my $filename        = param('uploaded_file') || "";
my $filehandle      = CGI::upload('uploaded_file');
my $serverfile2     = $zielVerzeichnis . "/" . $bildcode . "_" . $filename;
my $serverFile      = $zielVerzeichnis . "/" . (split /[\\\/]/, $filename )[-1];
my $w1              = 600; #b
my $w2              = 400; #m
my $w3              = 120; #s

print header, start_html,
qq~Org. Filename: $filename<BR>
Merken Sie sich den Bildcode : <b>$bildcode</b><BR>\<HR>
Datei wird übertragen ...<BR>~;

my $buffer;
open my $out ,">", $serverFile or die $!;
binmode $filehandle;
binmode $out; # Nur relevant fuer Windows-Rechner
while ( read $filehandle,$buffer,1024 ){
    print $out $buffer;
}
close $out;

rename $serverFile, $serverfile2;
chmod  0777, $serverfile2;
print  "Datei wurde erfolgreich übertragen ...<BR>\n";

my $image = Image::Magick->new;

print "Lese $serverfile2 <BR>";
my ($width, $height, $size, $format) = $image->Ping( $serverfile2 );

print <<END;
Breite: $width<BR>
Höhe: $height<BR>
Größe: $size<BR>
Format: $format<BR>
END

my $h1 = int(($w1 / $width)* $height);

my $image1 = Image::Magick->new;
$image1->Read($serverfile2);
print "Lese $serverfile2";
$image1->Resize(width=>$w1, height=>$h1);
$image1->Set(quality=>70);
$image1->Write("../../htdocs/images/community/test.jpg");

print end_html;


WinXP
Perl 5.8.8
ImageMagick 6.2.8
OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/
Gast Gast
 2007-09-20 19:35
#99765 #99765
mhh ich sollte es mal probieren, ist ja aber eigentlich nur ein Tick anders ...
Gast Gast
 2007-09-20 22:02
#99771 #99771
@renee
Code (perl): (dl )
chmod  0777, $serverfile2;

Böse ganz böse...
besser:
Code (perl): (dl )
chmod  0662, $serverfile2;
<< |< 1 2 3 4 5 6 >| >> 51 Einträge, 6 Seiten



View all threads created 2007-09-18 15:47.