Kommandozeile in perl Script (Allgemeines zu Perl)

[thread]15431[/thread]

Kommandozeile in perl Script

Leser: 26

Articles: hide open all | hide show old branches

+8 replies
Gast katja

2010-09-02 10:49
folgender Befehl in Kommandozeile "C:\Programme\exiftool\exiftool.exe" -country=Switzerland "D:\Dokumente und Einstellungen\All Users\Dokumente\Eigene Bilder\Beispielbilder\Wasserlilien.jpg"
soll in Perl Script verwendet werden, habe schon system probiert bin mir aber nicht sicher wie, ob man die Anführungszeichen konkadinieren muß.

Mein bisheriger Versuch:
Code (perl): (dl )

1 2 3 4 5 6

for(@Zeilen) { @Zeile=split("\t", $_); print @Zeile[1]; system("\"C:\Programme\exiftool\exiftool.exe\" -country=@Zeile \"D:\Dokumente und Einstellungen\All Users\Dokumente\Eigene Bilder\Beispielbilder\Wasserlilien.jpg\"") }
edit renee: [code]-Tag eingefügt.
Last edited: 2010-09-02 10:52:04 +0200 (CEST)
- renee
  
  2010-09-02 10:52
  
  User since
  2003-08-04
  14371 Artikel
  ModeratorIn
  
  Move from Raku / Perl 6 to Allgemeines zu Perl
  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/
- GwenDragon
  
  2010-09-02 10:56
  User since
  2005-01-17
  14785 Artikel
  Admin1
  Ich denke, mal so (ungetestet):
  
  Code: (dl )
  
  system('C:\Programme\exiftool\exiftool.exe', "-country=@Zeile", 'D:\Dokumente und Einstellungen\All Users\Dokumente\Eigene Bilder\Beispielbilder\Wasserlilien.jpg');
  
  Wenn du in mit " umschlossenene Zeichenketten den Backslash \ verwendest, muss du ihn als \\ maskieren, weil der einfache \ eine Sonderbedutung hat. Bei mit ' umschlossene Zeichenketten verliert der \ die Sonderbedutung.
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- renee
  
  2010-09-02 10:58
  User since
  2003-08-04
  14371 Artikel
  ModeratorIn
  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 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/
- GwenDragon
  
  2010-09-02 11:01
  
  User since
  2005-01-17
  14785 Artikel
  Admin1
  
  @katja
  Wenn du das nächste Mal Code postest, stelle ihn bitte in Perl- oder Code-Tags. Lies bitte dazu Anleitung (BBCode des Forums).
  Danke.
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- +2 replies
- Gast wer
  
  2010-09-02 11:13
  meinst du nicht:
  
  Code (perl): (dl )
  
  print "$Zeile[1]\n";
  
  und -country=$Zeile[1]? Denn -country=@Zeile fügt alle Elemente in "@Zeile" durch Leerzeichen an der Stelle getrennt ein
  
  Mach mal ein
  
  Code (perl): (dl )
  
  print "@Zeile\n";
  
  dann siehst du was ich meine.
  Last edited: 2010-09-02 11:15:38 +0200 (CEST)
  - GwenDragon
    
    2010-09-02 11:37
    
    User since
    2005-01-17
    14785 Artikel
    Admin1
    
    Welche Daten in @Zeile wirklich drin stehen sollen und als Parameter weiter gegeben, können wir nur erraten und der Rest ist doch nur katja bekannt.
    die Drachin Gwen
    
    Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- Gast wurscht
  
  2010-09-02 16:57
  
  Es gibt auch ein Perl Modul dazu http://search.cpan.org/dist/Image-ExifTool/lib/Ima...
  Last edited: 2010-09-02 17:04:29 +0200 (CEST)

View all threads created 2010-09-02 10:49.