Schrift
Wiki:Tipp zum Debugging: use Data::Dumper; local $Data::Dumper::Useqq = 1; print Dumper \@var;
Start · Board · Anwendungen/Programme/Skripte in Perl · Allgemeines zu Perl
[thread]6884[/thread]

Größe von Bildern bestimmen



<< >> 10 Einträge, 1 Seite
renee
 2005-04-12 13:25
#53714 #53714
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
Gibt es eine einfache Möglichkeit die Höhe von .gif- und .jpg-Bildern zu bestimmen?

Vielleicht auch ohne extra Module...

Wie wandle ich am besten .tiff und .png in .jpg oder .gif um?
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/
Crian
 2005-04-12 13:47
#53715 #53715
User since
2003-08-04
5867 Artikel
ModeratorIn
[Homepage]
user image
Image::Size zur Größenbestimmung.
Ich "wandle" die Dateien meist per Grafikprogramm, aber die üblichen Verdächtigen wären GD und image (oder wie das jetzt genau heißt).

Image::Size ist pure Perl soweit ich das sehe. Du kannst den Code (viel pack und unpack...) ja sonst einfach so zu Deinem Projekt hinzufügen.\n\n

<!--EDIT|Crian|1113299442-->
s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite
Froschpopo
 2005-04-12 13:49
#53716 #53716
User since
2003-08-15
2653 Artikel
BenutzerIn
[default_avatar]
use Image::Size;

my ($width, $height) = imgsize("bild.gif");
Crian
 2005-04-12 13:53
#53717 #53717
User since
2003-08-04
5867 Artikel
ModeratorIn
[Homepage]
user image
es gibt neben imgsize auch noch andere nützliche Ausgabemöglichkeiten:

Code: (dl )
1
2
$size = html_imgsize("globe.gif");
# $size == 'width="60" height="40"'


und

Code: (dl )
1
2
@attrs = attr_imgsize("globe.gif");
# @attrs == ('-width', 60, '-height', 40)


(vgl. perldoc Image::Size)
s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite
Strat
 2005-04-12 13:55
#53718 #53718
User since
2003-08-04
5246 Artikel
ModeratorIn
[Homepage] [default_avatar]
Image::Info muesste das auch koennen...
perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/
renee
 2005-04-12 14:03
#53719 #53719
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
@Crian: Mit Grafikprogramm ist schlecht möglich, da das ein Modul zur automatischen PDF-Erzeugung aus Twiki-Artikeln wird und deshalb nichts händisch gemacht werden kann...
Aber GD schaue ich mir mal an...
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
 2005-04-12 14:08
#53720 #53720
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
Danke, mit CPAN:Image::Size haut es wunderbar hin!
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/
ptk
 2005-04-12 22:05
#53721 #53721
User since
2003-11-28
3645 Artikel
ModeratorIn
[default_avatar]
Image::Size and Image::Info may be used to get information about an image file (like size, mime format etc.). I had some exotic jpegs which did not work with Image::Info, but worked with Image::Size.

Zum Konvertieren benutze ich meistens netpbm oder convert aus ImageMagick.
renee
 2005-04-12 23:52
#53722 #53722
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
ich bin noch nicht zum Konvertieren gekommen, aber mit convert und GD habe ich ja jetzt zwei Alternativen...

Dann muss ich mich nur noch ums "Tabellenproblem" kümmern, dann werde ich alle nötigen TWiki-Artikel in PDFs wandeln ;)
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/
Strat
 2005-04-13 18:17
#53723 #53723
User since
2003-08-04
5246 Artikel
ModeratorIn
[Homepage] [default_avatar]
wenn die qualitaet von GD zu schlecht sein sollte, kannst du auch auf die Schnittstelle zu ImageMagick (heisst, glaube ich, PerlMagick oder so aehnlich) ausweichen...
perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/
<< >> 10 Einträge, 1 Seite



View all threads created 2005-04-12 13:25.