Opened by Froschpopo at 2007-07-20 22:34
User since
2006-03-29
1520 Artikel
BenutzerIn
2006-03-29
1520 Artikel
BenutzerIn
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
#!/usr/bin/perl
use warnings;
use strict;
use Image::Magick;
my $filename = shift;
my $target = $filename;
$target =~ s/(\..*)$/_thumb$1/;
my $image = new Image::Magick;
$image->Read( $filename );
$image->Scale( '320x200' );
$image->Write( $target );
Hmm, ich verstehe den Sinn nicht dahinter den "mittleren Teil" anzeigen zu lassen.
Das obere Skript liest einfach einen Dateinamen als Argument und erzeugt ein maximal 320x200 großes Thumbnail. (Originalname + _thumb vor dem letzten Punkt im Dateinamen) Maximal deswegen weil die Seitenverhältnise beigehalten werden.
Wie groß das Bild letztendlich selber ist, spielt doch keine Rolle!?
P.S.:
Tut mir leid. Ich habe auf Froschpopos Kommentar geantwortet und gegen die Perl Regeln verstoßen. Bitte Peitscht mich aus. :'(\n\n
<!--EDIT|sid burn|1184964393-->
Nicht mehr aktiv. Bei Kontakt: ICQ: 404181669 E-Mail: perl@david-raab.de