Thread Kommandozeile in perl Script (7 answers)
Opened by katja at 2010-09-02 10:49

renee
 2010-09-02 10:58
#141111 #141111
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
Du übergibst ja das komplette Array @Zeile an das Kommando. Lass es Dir doch vorher mal ausgeben:

Code (perl): (dl )
1
2
3
4
5
6

for(@Zeilen)
 {
   @Zeile=split("\t", $_);
   print @Zeile[1];
   print "\"C:\Programme\exiftool\exiftool.exe\" -country=@Zeile \"D:\Dokumente und Einstellungen\All Users\Dokumente\Eigene Bilder\Beispielbilder\Wasserlilien.jpg\""
 }


Zusätzlich benutzt Du "", womit Du die Backslashes in den Pfadangaben nochmal escapen musst:

Code (perl): (dl )
"\"C:\\Programme\\exiftool\\exiftool.exe\" -country=@Zeile \"D:\\Dokumente und Einstellungen\\All Users\\Dokumente\\Eigene Bilder\\Beispielbilder\\Wasserlilien.jpg\""


Benutzt Du Wiki:use strict und "use warnings"? Wenn nein, dann beschäftige Dich mal damit. Das hilft in Zukunft, gewisse Fehler zu vermeiden.

Generell ist es besser, ein Array bzw. eine Liste an system zu übergeben:

Code (perl): (dl )
1
2
3
4
5
6
7
8
9

my $programm = 'C:\Programme\exiftool\exiftool.exe';
my $image = 'D:\Dokumente und Einstellungen\All Users\Dokumente\Eigene Bilder\Beispielbilder\Wasserlilien.jpg';

for(@Zeilen)
 {
   @Zeile=split("\t", $_);
   print @Zeile[1];
   system( $program, "-country=@Zeile", $image)
 }

(ungetestet)
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/

View full thread Kommandozeile in perl Script