Guten Tag zusammen,
ich bin ein Neuling in Sachen „Apple Srcipt" und habe folgendes Problem. Es existiert ein kleines Perl-Script, dass die in einer Textdatei enthaltenen XPress-Tags in InDesign-Tags umwandelt. Dieses Script funktioniert auch wunderbar wenn ich es händisch bediene.
Jetzt hätte ich gern ein Droplet oder einen Hotfolder mit einem Workflow der das ganze automatisiert. Das heißt, wenn eine Datei mit der Endung txt in einen Ordner geschoben wird, wird das Perl-Script automatisch ausgeführt und die Datei entweder unter einem neuen Namen im gleichen Ordner gespeichert, oder – noch besser – in einem anderen Ordner gespeichert.
Ich bin für jede Hilfe dankbar
Das Perl-Script hänge ich einmal an
#!/usr/bin/perl
$infile = $ARGV[0];
unless ( defined ($infile)) { die "Keine Quelldatei angegeben..."; }
open(SOURCE, "< $infile") or die "\nDatei $infile existiert nicht\n\n";
# Local Block that ignores line endings...
{
local $/;
undef $/;
$input = <SOURCE>;
}
close(SOURCE);
$input =~ s/\@bl\:/<ParaStyle:bl>/gs;
$input =~ s/\@sperren\:/<ParaStyle:sperren>/gs;
$input =~ s/\@e\:/<ParaStyle:e>/gs;
$input =~ s/\@zahlen\:/<ParaStyle:zahlen>/gs;
$input =~ s/\@r\:/<ParaStyle:r>/gs;
$input =~ s/<B>/<ct:Bold>/gs;
$input =~ s/<P>/<ct:Roman>/gs;
$input =~ s/\$/<0x2005>/gs;
$input =~ s/<\\\!q>/<0x2005>/gs;
$input =~ s/<\+>(.*?)<\+>/<cp:Superscript>$1<cp:Normal>/gs;
$input =~ s/<->(.*?)<->/<cp:Subscript>$1<cp:Normal>/sg;
$input =~ s/<\\<>/\\</gs;
$input =~ s/<\\>>/\\>/gs;
$input =~ s/<\\h>/<0x00AD>/gs;
# Halbgeviertstrich
$input =~ s/--/\xD0/gs;
# <\@> in @
$input =~ s/<\\@>/@/gs;
$input =~ s/#//gs;
# Kopfzeile schreiben
$output = "<ASCII-MAC>\x0B".$input;
# Zeilenumbrüche korrigieren...
$output =~ s/\x0B/\r/gs;
open(OUTPUT, "> converted_".$infile) or die "Kann die Zieldatei nicht anlegen";
print OUTPUT $output;
close (OUTPUT);
