brauch filehandle (Allgemeines zu Perl)

Froschpopo

2007-05-08 07:28

User since
2003-08-15
2653 Artikel
BenutzerIn
[default_avatar]

PerlMagick benötigt zum Öffnen eines Bildes entweder einen Dateiname oder ein Dateihandle:

Code: (dl )

  $image = Image::Magick->new;
  open(IMAGE, 'image.gif');
  $image->Read(file=>\*IMAGE);
  close(IMAGE);

Ich hab den Inhalt eines Bildes in $photo gespeichert. Wo bekomm ich hier mein Handle her?
Hab schon <$photo> versucht aber geht auch nicht :(

esskar

2007-05-08 09:01

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

was genau ist in $photo gespeichert?

Froschpopo

2007-05-08 09:04

User since
2003-08-15
2653 Artikel
BenutzerIn
[default_avatar]

[quote=esskar,08.05.2007, 07:01]was genau ist in $photo gespeichert?[/quote]
Der Inhalt eines JPEG-Bildes welches ich aus einer LongBlob (mysql) eingelesen habe! Ich habe deshalb kein Dateihandle aus open() sondern nur den Inhalt der Datei in einem String

esskar

2007-05-08 09:10

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

versuch mal

Code: (dl )

$image->ReadImage($photo);

Froschpopo

2007-05-08 09:12

User since
2003-08-15
2653 Artikel
BenutzerIn
[default_avatar]

Funkt nicht mit Read und nicht mit ReadImage.
Steht aber auch nichts in der Manual:
http://www.imagemagick.org/script/perl-magick.php#read
Man kann nur den Pfad oder eine Filehandlereferenz übergeben.\n\n

esskar

2007-05-08 09:15

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

doch

Code: (dl )

$image = Image::Magick->new;
$image->Set(size=>'100x100');
$image->ReadImage('xc:white');
$image->Set('pixel[49,49]'=>'red');

vielleicht musst du im new noch die compression mitgeben!

Froschpopo

2007-05-08 09:24

User since
2003-08-15
2653 Artikel
BenutzerIn
[default_avatar]

Mein Script sieht so aus:

Code: (dl )

my $data = $dbh->selectrow_array(...); # Aus Datenbank lesen

my $image = Image::Magick->new();
$image->Read($data) && "Kann nicht lesen";
$image->Thumbnailgeometry => 'geometry', width => $w, height => $h);

print $image->ImageTopBlob();

das hat jahrelang super funktioniert. An PerlMagick liegt es nicht.
Ich muss nur wissen, wie man aus einem String ein Filehandle ableiten kann. Irgendwie sowas mit <$data> oder sowas ähnliches\n\n

GwenDragon

2007-05-08 13:32

User since
2005-01-17
14748 Artikel
Admin1

Quote
Ich muss nur wissen, wie man aus einem String ein Filehandle ableiten kann.

open ($path, $path);
Dann steht in $path das FH.

Code: (dl )

$image->Read($data) && "Kann nicht lesen";

Sollte wohl eher

Code: (dl )

$image->Read($data) && die "Kann nicht lesen";

sein?\n\n

die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

Froschpopo

2007-05-08 20:05

User since
2003-08-15
2653 Artikel
BenutzerIn
[default_avatar]

Und was soll in $path drinne stehen wenn kein Pfad existiert? Fühle mich noch nicht so richtig verstanden.

Nochmal ganz einfach erklärt:

Es gibt keinen Pfad zu einem Bild auf der Festplatte. Die JPEG-Daten befinden sich in einer mySQL Datenbank! Die einzige Möglichkeit an das Bild heranzukommen ist über $DBI::selectrow_array() etc.

Ich möchte das Bild aber gerne mit PerlMagick (ImageMagick) bearbeiten.
PerlMagick benötigt aber entweder ein Filehandle oder einen Pfad zu dem Bild welcher aber nicht existiert da ja das Bild in der Datenbank liegt.

Das Bild wird mit Read() geöffnet.
Read() erwartet entweder ein Filehandle, oder einen Bildpfad.

GwenDragon

2007-05-08 20:08

User since
2005-01-17
14748 Artikel
Admin1

In der Datenbank ist das Bild als Binärcode abgespeichert? BLOB?

die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten