Ich möchte mit einer Perl-Datei einen Shell-Befehl ausführen (Perl/CGI)

[thread]13955[/thread]

Ich möchte mit einer Perl-Datei einen Shell-Befehl ausführen

Leser: 30

Articles: hide open all | hide show old branches

+11 replies
Eddie

2009-08-30 22:47

User since
2009-08-30
2 Artikel
BenutzerIn

Hallöchen alle zusammen,

ich bin schon seit Längerem auf der Suche nach einer Antwort auf meine Frage:
Wie kann ich in einer Perl-Datei einen Shell-Befehl ausführen?

Es geht darum, dass der Server neugestartet werden soll - und das soll per URL ausführbar sein. Ich weiß, wie der Befehl in der Shell aussieht, aber ich bräuche eine Erklärung für Dumme, was ich in meine *.pl-Datei reinschreiben soll - ich habe keine Variante gefunden, bei der wirklich steht, was ich wo einsetzen muss...

Kann mir da jemand eine Anleitung zu geben?
- +10 replies
- pq
  
  2009-08-31 00:38
  User since
  2003-08-04
  12208 Artikel
  Admin1
  am besten per system(), wenn du die ausgabe des programms nicht brauchst, das sähe dann so aus:
  
  Code (perl): (dl )
  
  1 2
  
  my ($cmd, @args) = ("/pfad/zu/programm", "--arg1", $anzahl, "--arg2", ...); system($cmd, @args) == 0 or die "Could not execute $cmd: $?";
  
  in $? steht der exitcode des programms.
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
  - +9 replies
  - Eddie
    
    2009-08-31 06:49
    User since
    2009-08-30
    2 Artikel
    BenutzerIn
    
    2009-08-30T22:38:53 pq
    
    Code (perl): (dl )
    
    1 2
    
    my ($cmd, @args) = ("/pfad/zu/programm", "--arg1", $anzahl, "--arg2", ...); system($cmd, @args) == 0 or die "Could not execute $cmd: $?";
    
    Ich brauche den Befehl: sudo shutdown -r 30
    
    Also würde daraus werden:
    
    Code (perl): (dl )
    
    1 2
    
    my ($cmd, @args) = ("/pfad/zu/programm", "sudo", "shutdown, "-r", "30); system($cmd, @args) == 0 or die "Could not execute $cmd: $?";
    
    zumindest in der Endfassung - oder sehe ich das falsch?
    
    Sorry, wenn ich da scheinbar dumme Fragen stelle, aber ich hatte mal nen Code dazu gefunden - und ihn absolut nicht verstanden :x
    - +8 replies
    - Taulmarill
      
      2009-08-31 11:03
      
      User since
      2004-02-19
      1750 Artikel
      BenutzerIn
      
      Nicht ganz. Die erste Zeile müsste so aussehen:
      
      Code (perl): (dl )
      
      my ($cmd, @args) = ("/pfad/zu/programm/sudo", "shutdown, "-r", "30);
      
      Das erste Argument ist der auszuführende Befehl. Den vollen Pfad anzugeben ist hier sinnvoll, vor allem bei Cron-Jobs.
      $_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B
      - +7 replies
      - topeg
        
        2009-08-31 11:43
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        Im Falle von "sudo" ist es, glaube ich besser, den ganzen Befehl mit Optionen in eine Option zu packen... Verwirrend...
        Besser ich mache ein Beispiel:
        
        Code (perl): (dl )
        
        my ($cmd, @args) = ("/usr/bin/sudo", "shutdown -r 30");
        
        Denn "sudo" ist der Befehl der von "system" Ausgeführt werden soll und "shutdown -r 30" der Befehl den "sudo" als root ausführen soll. Dieser Befehl veranlasst dann einen Neustart des Systems in 30 Minuten.
        
        Ich hoffe dass auf dem Zielsystem "sudo" auch korrekt eingerichtet ist, sonst kommt es beim Aufruf über "system" zu nicht aussagekräftigen Fehlern (es passiert einfach nichts). Dem Nutzer unter dem der Webserver läuft muss das Recht haben über "sudo shutdown" aus zu führen, was meistens nicht der Fall ist. Ich würde "sudo" in dem Fall auch so einrichten, dass nur "shutdown -r 30" und keine anderen Optionen ausgeführt werden kann, denn je nachdem wie es kompiliert ist, erlaubt es auch das Ausführen von Scripten/Programmen beim herunterfahren. Das ist ein Risiko. Sollte jemand es schaffen sich mit dem rechten des Webservers Zugang zum System zu verschaffen.
        
        Weiterhin hoffe ich, dass das Script, welches das "sudo shutdown" ausführt mit einem Passwort gesichert ist (das nicht das Rootpasswort ist, das ist zu gefährlich übers web), denn sonst kann jeder, der Freude daran hat das System herunterfahren, und das kann sehr ärgerlich sein. :-/
        
        +6 replies
        
        pq
        
        2009-08-31 12:03
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        2009-08-31T09:43:59 topeg
        Im Falle von "sudo" ist es, glaube ich besser, den ganzen Befehl mit Optionen in eine Option zu packen... Verwirrend...
        Besser ich mache ein Beispiel:
        
        Code (perl): (dl )
        
        my ($cmd, @args) = ("/usr/bin/sudo", "shutdown -r 30");
        
        das funktioniert nicht. kannst du ausprobieren, indem du
        sudo "echo foo"
        eingibst.
        sudo nimmt das erste argument als das kommando, und in dem fall wäre das dan"echo foo", was nicht existiert:
        
        Code: (dl )
        
        1 2 3 4 5 6
        
        $ perl -wle' system "sudo", "echo foo";' sudo: echo foo: command not found $ perl -wle' system "sudo", "echo", "foo";' foo
        
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
        
        +5 replies
        
        topeg
        
        2009-08-31 13:22
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        Hast recht. Irgendwie hatte ich das anderes in Erinnerung. Kann es sein, das "sudo" früher den ExecString geprüft hat, mittlerweile aber die einzelnen Optionen testet? Oder ich verwechsle das mit irgend einem sudo-ähnlichem Programm auf anderen Betriebssystemen ..?
        
        +4 replies
        
        pq
        
        2009-08-31 13:44
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        vielleicht meinst du su -c "befehl ..."?
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
        
        +3 replies
        
        topeg
        
        2009-08-31 16:13
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        Kann ich wirklich nicht sagen.
        Ich habe in meinem Leben so zwischen 15 und 20 grundlegend verschiedene Betriebssysteme bedient, administriert, installiert, oder dafür programmiert, mir passiert es immer wieder das ich irgend was verwechsle. ;-)
        
        Edit: darum schrieb ich ja, dass ich Glaube, es würde anders funktionieren.
        Last edited: 2009-08-31 16:14:15 +0200 (CEST)
        
        +2 replies
        
        neniro
        
        2009-08-31 19:30
        
        User since
        2008-12-14
        79 Artikel
        BenutzerIn
        
        2009-08-31T14:13:08 topeg
        (...) mir passiert es immer wieder das ich irgend was verwechsle.
        
        Deine Word-Dokumente enden auch auf :wq!? ;)
        -- yet another amateur perl hacker
        
        topeg
        
        2009-08-31 19:52
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        Word?!
        
        Code: (dl )
        
        cp -r template.odt text && cat - > text/content.xml && zip -r dokument.odt text && rm -r text
        
        mehr braucht man nicht. ;-)

View all threads created 2009-08-30 22:47.