Systemaufruf mit backticks und Parameterübergabe (Webframeworks, Sonstige Fragen zur Webprogrammierung mit Perl)

[thread]19760[/thread]

Systemaufruf mit backticks und Parameterübergabe

Tags: perl5 Ähnliche Threads

Leser: 11

Articles: hide open all | hide show old branches

+11 replies
rabo

2015-08-17 15:36
User since
2015-08-17
15 Artikel
BenutzerIn
Hallo,
ich habe ein Problem.
Ich habe eine perl-File die ruft mittels Backtics eine andere.pl auf.
Dabei sollen aber noch einige Parameter uebergeben werden.
Leider kommen diese irgendwie im anderen script nicht an.
das Ganze sieht so aus:

Aufruf:
Code (perl): (dl )

1 2 3 4 5

my @Result = `/opt/GetObjectLists.pl`, "service_url", $ConfigParams{Url}, "user_name", $ConfigParams{User}, "password", $ConfigParams{Password}, "viewtype", $ClientOption;
die aufgerufene file:
Code (perl): (dl )

1 2 3 4 5 6 7 8

use Getopt::Long; Getopt::Long::Configure('no_ignore_case'); my %Opts = (); GetOptions( '--service_url=s' => \$Opts{service_url}, '--user_name=s' => \$Opts{user_name}, '--password=s' => \$Opts{password}, );
Was mache ich da falsch?

Danke fuer Eure Hilfe

gruss rabo
Last edited: 2015-08-24 13:32:31 +0200 (CEST)
- +10 replies
- Linuxer
  
  2015-08-17 15:48
  User since
  2006-01-27
  3890 Artikel
  HausmeisterIn
  Wie soll das gehen? Du erstellst eine Liste, die an @Result übergeben wird.
  
  Das erste Argument ist das Resultat des aufgerufenen Programms, die weiteren Elemente sind die Optionen und Argumente, die Du übergeben wolltest.
  
  Und Optionen sollten mit "--" angegeben werden, damit sie als solche erkennbar sind.
  
  Du musst den Aufruf komplett in Backticks machen, ansonsten kommen Deine Argumente nicht an.
  
  Beispiel (mit qx{} anstatt Backticks):
  
  Code (perl): (dl )
  
  my @Result = qx{ skript.pl --opt1 "argument" --opt2 "argument" --opt3 "argument" ... };
  
  edit: fixed typo
  Last edited: 2015-08-24 16:00:41 +0200 (CEST)
  meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
  Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
  - rabo
    
    2015-08-17 16:21
    
    User since
    2015-08-17
    15 Artikel
    BenutzerIn
    
    Vielen Dank, genau das wars.
    
    gruss ralf
  - +8 replies
  - rabo
    
    2015-08-24 13:11
    
    User since
    2015-08-17
    15 Artikel
    BenutzerIn
    
    Habe noch ein anderes Problem.
    Ich bekomme einen Fehler, sobald zb. ein () im Argument enthalten ist.
    Wie bekomme ich den Fehler am besten weg?
    Hab schon einiges probiert geht aber nicht.
    
    Danke.
    
    gruss ralf
    - +4 replies
    - Linuxer
      
      2015-08-24 13:34
      
      User since
      2006-01-27
      3890 Artikel
      HausmeisterIn
      
      Irgendwann sind Grenzen der einfachen Lösungen erreicht. Das Kommando, das zusammengebaut wird, wird an eine Shell zur Ausführung übergeben. Die Shell wertet Sonderzeichen aus, also musst Du die Sonderzeichen korrekt maskieren.
      
      Mehr kann man schwer sagen, da Du die Details, wie Du es nun realisiert hast, für Dich behältst.
      
      Vielleicht hilft Dir perlfunc quotemeta schon weiter?
      
      Oder man überlegt sich einen anderen Weg, wie man die Daten aus dem ersten Skript in das zweite Skript bekommt.
      perlipc zeigt da ein paar Wege auf.
      meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
      Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
      - +3 replies
      - rabo
        
        2015-08-24 16:16
        
        User since
        2015-08-17
        15 Artikel
        BenutzerIn
        
        2015-08-24T11:34:27 Linuxer
        Irgendwann sind Grenzen der einfachen Lösungen erreicht. Das Kommando, das zusammengebaut wird, wird an eine Shell zur Ausführung übergeben. Die Shell wertet Sonderzeichen aus, also musst Du die Sonderzeichen korrekt maskieren.
        
        Mehr kann man schwer sagen, da Du die Details, wie Du es nun realisiert hast, für Dich behältst.
        
        Vielleicht hilft Dir perlfunc quotemeta schon weiter?
        
        Oder man überlegt sich einen anderen Weg, wie man die Daten aus dem ersten Skript in das zweite Skript bekommt.
        perlipc zeigt da ein paar Wege auf.
        
        ja ich uebergebe in einem Argument zb: --name datastore1 (Raid5)
        
        dies ist der regulaere name, (Raid5) muss aber im Argument enthalten sein.
        Es kann auch andere Sonderzeichen im Namen geben.
        Also sollte ich mir wohl eine Funktion bauen, die alle Sonderzeichen maskiert, wenn ich das richtig sehe.
        
        die Fehlermeldung die ich bekomme ist: sh: 1: Syntax error: "(" unexpected
        sprich er interpraetiert es nicht als string sondern will was ausfuehren bzw. erwartet was.
        
        Linuxer
        
        2015-08-24 16:36
        
        User since
        2006-01-27
        3890 Artikel
        HausmeisterIn
        
        edit
        Es ist so wie befürchtet.
        
        Quote
        die Fehlermeldung die ich bekomme ist: sh: 1: Syntax error: "(" unexpected
        
        Wie zu sehen ist, meldet sich eine Shell (Shell "sh", Zeile "1"), die pflichtgemäß die "Eingabe" überprüft. Und die unmaskierte Klammer ist an der Stelle eben falsch.
        
        Wenn Du "bla (blub)" als String übergeben willst, musst Du das eben auch so tun und den String als solchen für die Shell kenntlich machen.
        Nicht: --option bla (blub), sondern --option "bla (blubb)". Beachte die "".
        
        Aber am besten nutzt Du Raubtiers Vorschlag mit dem open(). Damit kannst Du Dir das Quoting sparen, weil es den Shellaufruf spart.
        
        So kannst Du zuerst ein Array mit dem Kommando und seinen Argumenten zusammenbauen. Achte darauf, dass die Strings, die als Argument zu einer Option gehören, eben auch als String definiert werden.
        /edit
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10
        
        my @cmd = ( 'skript.pl', # Separator ',' is fine here, but using => to show relation between option and argument; '--opt1' => $argument1, '--opt2' => 'datastore1 (Raid5)', # argument to --opt2 has whitespace and special characters!!! ... );
        
        Danach machst Du den Aufruf des open und list die Ausgabe aus dem Handle:
        
        Code (perl): (dl )
        
        1 2 3
        
        open( my $pipe, '-|', @cmd ) or die "Could not call @cmd[0]: $!"; my @Result = <$pipe>; close $pipe;
        
        edit2: fixed typo, added shell hint
        Last edited: 2015-08-24 17:08:00 +0200 (CEST)
        meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
        Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
        
        Raubtier
        
        2015-08-24 16:42
        
        User since
        2012-05-04
        1076 Artikel
        BenutzerIn
        
        2015-08-24T14:16:53 rabo
        Also sollte ich mir wohl eine Funktion bauen, die alle Sonderzeichen maskiert, wenn ich das richtig sehe.
        
        Die gibt es schon, sie heißt quotemeta, hatte Linuxer auch schon genannt.
        
        Da du offenbar irgendwas mit Raid machen willst, solltest du auf jeden Fall auch eine Fehlerüberprüfung haben, d.h. ermitteln, ob das aufgerufene Script erfolgreich war. Mit Backticks oder open bekommst du aber nur die Ausgabe, daher wirklich am einfachsten:
        
        Code (perl): (dl )
        
        1 2 3 4
        
        use Capture::Tiny ':all'; ($stdout, $stderr, $exit) = capture { system("deine-executable", @argumente_die_nicht_gequotet_werden_muessen); };
    - GwenDragon
      
      2015-08-24 13:35
      
      User since
      2005-01-17
      14757 Artikel
      Admin1
      
      Bei was kommt der Fehler?
      Beim Aufruf von skript.pl --opt1 () oder wie?
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
    - +2 replies
    - Raubtier
      
      2015-08-24 13:40
      
      User since
      2012-05-04
      1076 Artikel
      BenutzerIn
      
      Die Argumente müssen alle für die jeweilige Shell gequotet werden.
      
      Alternativen:
      a) Nutze open statt Backticks:
      
      Code: (dl )
      
      1 2
      
      $ perl -wE'open(my $fh, "-|", "/usr/bin/perl", "-wE", "say q{hallo Klammer auf: ) }" );print for <$fh>' hallo Klammer auf: )
      
      b) Nutze Capture::Tiny mit system (die Mehr-Argumente-Form) im Capture-Block.
      
      Edit: pod durch mod ersetzt und somit Link berichtigt.
      Last edited: 2015-08-24 14:58:04 +0200 (CEST)
      - Linuxer
        
        2015-08-24 14:23
        
        User since
        2006-01-27
        3890 Artikel
        HausmeisterIn
        
        Cool, Variante a) war mir noch nicht oder nicht mehr geläufig... Klasse. Danke für den Zaunpfahl. Ist sogar in der perlfunc open nachzulesen (nur als Text ohne Beispiel).
        meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
        Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!

View all threads created 2015-08-17 15:36.