Du suchst ein Programm um Bilder aufzuteilen und zu Zippen?

Dann bist du hier richtig!

Nach langem Suchen ist es mir nicht gelungen ein Programm zu finden welches viele Bilder aufteilt und in ein Archiv packt. Wer sich mal die Arbeit von hand gemacht hat der weiss dass es viel Zeit rauben kann und Nerven dazu.

Die Arbeit wird mit einem Perl Script erledigt welches von der Seite www.perlunity.de zu verfügung gestellt wurde.

Eine kleine Anleitung ist aber von nöten um das hier zum Laufen zu bekommen ;)

1. Die Scriptsprache
Die Scriptsprache muss installiert werden. Zu finden bei www.activestate.com

2. Installation
Je nach System welches benutzt wird muss die passende Perl Version Installiert werden. Bei mir ist es Windows XP. ( ActivePerl-5.10.0.1004-MSWin32-x86-287188.msi ) Eine Liste findet man hier

3. Das Script
In eine Textdatei kopieren und als zip.pl speichern ( nicht zip.pl.txt )
Speicher es ab in dem Ordner wo die Perl.exe sich befindet . Ist kein muss, macht die Sache aber leicher. Bei mir C:\Perl\bin\perl.exe

#!/usr/bin/perl

use strict;
use warnings;

use DirHandle;

use Archive::Zip qw( AZ_OK );

my $image_dir_path = "h:\\foto\\natur";

my $image_dir_h = DirHandle->new;

if($image_dir_h->open($image_dir_path))
{
chdir($image_dir_path) or die $!;

my $zip = Archive::Zip->new;

my $item_counter = 0;
my $zip_counter = 0;

while(defined(my $dir_item = $image_dir_h->read)) {
next unless $dir_item =~ m/\.jpg$/;

$zip->addFile($dir_item);

$item_counter++;

if(($item_counter % 50) == 0) {

unless( $zip->writeToFileNamed("delete_${zip_counter}.zip") == AZ_OK ) {
die "Can't write zip file\n";
}

$zip = Archive::Zip->new;
$zip_counter++;
}
}

unless( $zip->writeToFileNamed("tmp_${zip_counter}.zip") == AZ_OK ) {
die "Can't write zip file\n";
}

$image_dir_h->close() or warn $!;
}
else
{
die "Can't open directory '$image_dir_path': $!\n";
}

4. Bilder Ordner Anpassen
Die Bilder werden in einem Ordner abgelegt bei mir ist es H:\foto\natur
Passes also in der zip.pl den Pfad an wo deine Bilder sich befinden
WICHTIG: Wenn du den Pfad angibts musst du es so schrieben >> h:\\foto\\natur << zwei \\

5. Script Starten
Gestartet wird das Script über die Eingabeaufforderung ( CMD ) Gehe zu Start>Ausführen>cmd
Hast du cmd eingetragen und OK geklickt geht ein schwarzes Fenster auf.

Jetzt musst der Ort angegeben werden wo sich unser Script ( zip.pl) befindet.

mit cd.. gehts du eine ebene zurück .. mach das so oft bis nur noch C:\ da steht.

Trage jetzt den Ort ein wo sich die Perl.exe & zip.pl befindet.

mit cd ORDNERNAME springst man in den gewünschen Ordner.

Bei mir:

cd perl

cd bin

Jetzt sind wir da c:\perl\bin\

Trage jetzt perl.exe zip.pl ein ( c:\perlbin\perl.exe zip.pl )

SOMIT STARTET JETZT DER PROZESS

Je nachdem wieviele Bilder man im Ordner hat h:\foto\natur
kann es auch länger dauern bis alle Bilder gezippt sind.

Wenn man nicht sicher ist ob das Programm noch arbeitet der kann im
Task Manager ( STRG + ALT + ENTF)
nachschauen ob eine Perl.exe zu sehen ist und die CPU beansprucht.

Jetzt haben wir im h:\foto\natur\ unsere Bilder und auch
die gewünschten ZIP dateien mit jeweils 50 Bilder pro Zip.

tmp_10.zip
delete_9.zip
delete_8.zip
delete_7.zip
delete_6.zip
delete_5.zip
delete_4.zip
delete_3.zip
delete_2.zip
delete_1.zip
delete_0.zip

Und noch ein bildchen für die lese faulen ;-)

Viel Spass damit

www.kjno.net