Hallo zusammen,

ich habe ein Script, was Bilder zu SW und PNG konvertiert.
Ich bekommen aber bei einigen in den Dateinamen.conv mit rein.
Wie bekomme ich das hin, das er das nciht mehr reinschreibt.

#!var/run/runperl -w
# $Id: conversionTemplate.pl,v 1.9 2009/07/13 14:06:57 tom Exp $

#
# Sample configuration
#
my $default_settings = <<'</SETTINGS>'; # Let Perl ignore the settings block
<SETTINGS>
<General
Enable="true"
Hot_Folder="/HotFolderPath"
Include_Subdirectories="false"
User=""
Timeout="600"
/>
<File_Types
Types="TIFF,JPEG,EPSF,8BIM,8BPS,PICT,BMP ,PNGf,..CT,PDF ,JP2 ,RAW "
Suffixes="tif,jpg,eps,psd,pct,bmp,png,sct,pdf,jp2,raw,cr2,nef,arw,dng,orf,raf,pef,sr2,crw,x3f,erf,mef,rw2"
Folder_Changes="false"
/>
<Environment
OUTDIR="DONE"
ERRDIR="ERROR"
/>
</SETTINGS>

use strict;

BEGIN {
use vars qw($HELIOSDIR);
$HELIOSDIR = $ENV{"HELIOSDIR"} or die "HELIOSDIR not set in environment\n";
unshift(@INC, "$HELIOSDIR/etc/perl");
}

use HELIOS::Utils;
use File::Basename;
use IO::Handle;
STDOUT->autoflush(1);
STDERR->autoflush(1);

# input file
my $sInputFile = $ARGV[0] || die "$0: no input file specified\n";

# used applications
my $layoutCmd = "$HELIOSDIR/bin/layout";
my $dtCmd = "$HELIOSDIR/bin/dt";

# environment parameters
my $sOutDir = $ENV{OUTDIR} || "DONE";
my $sErrDir = $ENV{ERRDIR} || "ERROR";
my $iScriptDebug = int ($ENV{SCRIPTDEBUG} || "0");

# get directory name, base name with and without suffix from input file name
my $iPos = rindex($sInputFile, "/") + 1;
my $sWorkDir = HELIOSPathToSystemPath(substr($sInputFile, 0, $iPos));
my $sBasename = substr($sInputFile, $iPos);
(my $sShortBasename = $sBasename) =~ s/\.\w*$//;
my $Suffix = substr($sBasename, rindex($sBasename, "."));

my $DeleteOriginal = 1;
my $sTargetSuffix = ".png";

print " Start Script: [$$] $0 $sInputFile\n" if ($iScriptDebug > 0);

chdir("$sWorkDir") || die "[$$] $0: cannot change working directory to $sWorkDir\n";

if (! -d $sOutDir) {
!system("$dtCmd", "mkdir", "$sOutDir") || die "[$$] $0: cannot create directory $sWorkDir$sOutDir\n";}
if (! -d $sErrDir) {
!system("$dtCmd", "mkdir", "$sErrDir") || die "[$$] $0: cannot create directory $sWorkDir$sErrDir\n";}

# determine names of moved input file and output files
my $sProcessedFile = "$sShortBasename" . ($sTargetSuffix eq $Suffix ?".conv$Suffix" : $sTargetSuffix);
my $iCounter = 0;

while (-f "$sOutDir/$sProcessedFile" || -f "$sErrDir/$sProcessedFile") {
$iCounter++;
$sProcessedFile = "$sShortBasename.$iCounter".($sTargetSuffix eq $Suffix ?".conv$Suffix" : $sTargetSuffix);
}

print STDERR "Status: Running image conversion for file $sInputFile\n";
my @cmd = ($layoutCmd);


push @cmd, ("-T","PNGf");
push @cmd, "-oPrintColor=Grayscale";
push @cmd, "-oScreenResolution=0";
push @cmd, "-oSpotToProcess=FALSE";
push @cmd, "-oIgnoreMasks=FALSE";
push @cmd, "-oIgnoreSpots=FALSE";
push @cmd, "-oOmitProfile=TRUE";
push @cmd, "-oThumbnail=TRUE";
push @cmd, ("-l","$sBasename");
push @cmd, "$sProcessedFile";


print "[$$] Command line: " . (join " ", @cmd) . "\n" if ($iScriptDebug > 0);

my $iReturnValue = system(@cmd);

my $targetDir = $sErrDir;
if (!$iReturnValue) {
$targetDir = $sOutDir;
print "[$$] Move \"$sProcessedFile\" to \"$targetDir/$sProcessedFile\"\n";
system("$dtCmd", "mv", "$sProcessedFile", "$targetDir/$sProcessedFile") == 0 || die "[$$] $0: cannot move converted file to directory $sWorkDir$targetDir";
}

$sProcessedFile = "$sShortBasename.Original". ($iCounter?".$iCounter":"") . "$Suffix";

if ($DeleteOriginal) {
print "[$$] Remove original file \"$sBasename\" \n";
system("$dtCmd", "rm", "$sBasename") == 0 || die "[$$] $0: cannot remove input file.";
} else {
print "[$$] Move \"$sBasename\" to \"$targetDir/$sProcessedFile\"\n";
system("$dtCmd", "mv", "$sBasename", "$targetDir/$sProcessedFile") == 0 || die "[$$] $0: cannot move input file to directory $sWorkDir$targetDir";
}
print "End Script: [$$] $0 $sInputFile\n" if ($iScriptDebug > 0);

exit 0;


# ------------ Start of binary application settings ------------
# ---------------- Don't change the lines below ----------------
# ---------- Created by HELIOS ScriptAssistant 1.0.3 -----------
# Y3dDb252ZXJzaW9u
# cG9wQ29udmVydFRhcmdldAlQTkc=
# Y2tTY3JlZW5QcmV2aWV3cwlGYWxzZQ==
# Y2tDcm9zc1BsYXRmb3JtCUZhbHNl
# cG9wVGFyZ2V0Q29sb3JzcGFjZQlHcmF5c2NhbGU=
# cG9wVGFyZ2V0Q29tcHJlc3Npb24JQXV0b21hdGlj
# Y2tTY3JlZW5SZXNvbHV0aW9uCUZhbHNl
# Y2tGb3JjZVBpeGVsQ291bnQJRmFsc2U=
# cmJDaGFubmVsRGVwdGg4CUZhbHNl
# cmJDaGFubmVsRGVwdGhLZWVwCVRydWU=
# Y2tTcG90VG9Qcm9jZXNzCUZhbHNl
# cmJDaGFubmVsRGVwdGgxNglGYWxzZQ==
# cG9wUm90YXRlCTDCsA==
# Y2tGbGlwSG9yaXpvbnRhbAlGYWxzZQ==
# Y2tGbGlwVmVydGljYWwJRmFsc2U=
# Y2tQcmVzZXJ2ZVBBVEgJVHJ1ZQ==
# Y2tQcmVzZXJ2ZUlQVEMJVHJ1ZQ==
# Y2tQcmVzZXJ2ZVhNUAlUcnVl
# Y2tQcmVzZXJ2ZUVYSUYJVHJ1ZQ==
# Y2tJZ25vcmVNYXNrcwlGYWxzZQ==
# Y2tJZ25vcmVTcG90cwlGYWxzZQ==
# Y2tEZWxldGVPcmlnaW5hbAlUcnVl
# cG9wRGV2aWNlTGlua1Byb2ZpbGVMaXN0CU5vbmU=
# cG9wT3V0cHV0UHJvZmlsZUxpc3QJQXV0b21hdGlj
# Y2tPbWl0UHJvZmlsZQlGYWxzZQ==
# c2xRdWFsaXR5CTA=
# cmJSZXNvbHV0aW9uQXV0b21hdGljCVRydWU=
# cmJSZXNvbHV0aW9uUHJpbnRSZXNvbHV0aW9uCUZhbHNl
# cmJJbmNsdWRlUHJvZmlsZVJlZglGYWxzZQ==
# cmJJbmNsdWRlUHJvZmlsZUNvcHkJVHJ1ZQ==
# cG9wUklHcmF5c2NhbGUyR3JheXNjYWxlCUF1dG9tYXRpYw==
# cG9wUklDTVlLMkdyYXlzY2FsZQlBdXRvbWF0aWM=
# cG9wUklSR0IyR3JheXNjYWxlCUF1dG9tYXRpYw==
# cG9wUklDSUVMYWIyR3JheXNjYWxlCUF1dG9tYXRpYw==
# cG9wUklDSUVMYWIyQ01ZSwlBdXRvbWF0aWM=
# cG9wUklSR0IyQ01ZSwlBdXRvbWF0aWM=
# cG9wUklDTVlLMkNNWUsJQXV0b21hdGlj
# cG9wUklHcmF5c2NhbGUyQ01ZSwlBdXRvbWF0aWM=
# cG9wUklHcmF5c2NhbGUyUkdCCUF1dG9tYXRpYw==
# cG9wUklDTVlLMlJHQglBdXRvbWF0aWM=
# cG9wUklSR0IyUkdCCUF1dG9tYXRpYw==
# cG9wUklDSUVMYWIyUkdCCUF1dG9tYXRpYw==
# Y2tUaHVtYm5haWwJVHJ1ZQ==
# ZWRTY3JlZW5SZXNvbHV0aW9uCTcy
# ZWRQaXhlbEhlaWdodAk=
# ZWRQaXhlbFdpZHRoCQ==
# ZWRQcmludFJlc29sdXRpb24JNzI=
# Y2tWZXJib3NlCUZhbHNl
# cG9wRGVmYXVsdENNWUtQcm9maWxlCUF1dG9tYXRpYw==
# cG9wRGVmYXVsdFJHQlByb2ZpbGUJQXV0b21hdGlj
# cG9wRGVmYXVsdEdyYXlzY2FsZVByb2ZpbGUJQXV0b21hdGlj
# cG9wRGVmYXVsdENJRUxhYlByb2ZpbGUJQXV0b21hdGlj
# Y2tTZW5kRXZlbnRzCUZhbHNl
# Y2tBcHBseUNsaXBwYXRoCUZhbHNl
# Y2tzdW1NRDUJZzN6NVBiZXJEWGM2b0Fpd0NSdXR6QT09
# ------------- End of binary application settings -------------
# Script was created by "Daniel Hense" on host "dhense"
# Freitag, 14. August 2015, 08:33:44

Ich würde einfach mal einen aktuellen Script Assistant versuchen.

Unter http://www.helios.de/...rowser.html?id=u1128 steht u.a.:

Zitat

- Image conversion scripts do no longer rename the original image. This
makes it easier to use them with follow-up scripts on the "DONE" folder.

In dessen Skripten gibt es kein "conv" mehr.

Hilft das weiter?

Gruß,

GreatOm

Perfekt! Danke!

Leider doch nciht geklappt.
Kommen auch PNG in den Ordner, dann macht er weiterhin ein .conv in den Dateinamen :-(

Hm... das hatte ich wohl falsch verstanden.
Das Update sagt ja auch "do no longer rename the original image". Die Zieldatei wird umbenannt.

Da würde ich mal einen Perl-Kundigen anheuern. Das sollte nicht so schwer sein.

Gruß,

GreatOm

Hallo Pippalu,

ich habe mir das Script gerade mal angesehen...

Einen Fernkurs in Perl zu geben ist natürlich schwierig und ohne entsprechende Kenntnisse Änderungen vorzunehmen kann sehr gefährlich sein. Davon rate ich grundsätzlich ab.

Das Script hängt bei PNGs das "conv" präfix vor die Extension damit die konvertierten PNGs nicht von den Originalen überschrieben werden. Daher greift das auch nur, wenn Eingabe-Extension und Ausgabe-Extension identisch sind. Die enstprechenden Zeilen sind 73:

Code

my $sProcessedFile = "$sShortBasename" . ($sTargetSuffix eq $Suffix ?".conv$Suffix" : $sTargetSuffix); 

... und 78:

Code

$sProcessedFile = "$sShortBasename.$iCounter".($sTargetSuffix eq $Suffix ?".conv$Suffix" : $sTargetSuffix); 

Da Du aber offensichtlich die Originale gar nicht verschieben willst sondern löschst (my $DeleteOriginal = 1;) ist das "conv" in diesem speziellen Fall eigentlich überflüssig.

Eine Änderung in dem geklammerten Ausdruck jeweils in den Zeilen 73 und 78 könnte dein Problem lösen:

Zeile 73:

Code

my $sProcessedFile = "$sShortBasename" . ( ! $DeleteOriginal && $sTargetSuffix eq $Suffix ?".conv$Suffix" : $sTargetSuffix); 

Zeile 78:

Code

$sProcessedFile = "$sShortBasename.$iCounter".(! $DeleteOriginal && $sTargetSuffix eq $Suffix ?".conv$Suffix" : $sTargetSuffix); 

Die Änderung bewirkt, dass das "conv" Präfix nur verwendet wird wenn die Datei verschoben wird ( $DeleteOriginal = 0).

Ich habe das nur flüchtig getestet, die Anwendung erfolgt auf eigene Gefahr!


Gruß
Bernd Flachsbart