system und backticks (gelöst) (Allgemeines zu Perl)

[thread]16988[/thread]

system und backticks [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 20

Articles: hide open all | hide show old branches

+19 replies
suresh

2011-12-14 14:08
User since
2010-10-12
109 Artikel
BenutzerIn
Hallo,
ich habe folgende Subroutine:
Code (perl): (dl )

1 2 3 4 5 6 7 8

sub execute_cmd { my $cmd = shift; print "Details: $cmd\n"; if ( system( $cmd ) == 0 or die "Error: $?" ) { return( `$cmd` ); } }
Die Intention ist, dass ich ein Kommando übergebe, welches dann innerhalb der Routine verarbeitet wird. Zum einen soll geprüft werden, ob das Kommando erfolgreich ausgeführt werden kann und zum anderen soll das Ergebnis des ausgeführten Programms zurückgeliefert werden.

Darum versuche ich mit system den Status abzufragen und danach mit backticks das Ergebnis zurückzuliefern.

Leider musste ich feststellen, dass ich dadurch das Kommando zweimal ausführe.

Wie könnte ich das besser lösen?

Danke und Grüße
- GwenDragon
  
  2011-12-14 14:20
  User since
  2005-01-17
  14748 Artikel
  Admin1
  Wenn du die Ausgabe (also von STDOUT) des Befehls benötigst, ist die Verwendung von Backticks oder qx gut.
  bei backticks/qx wird im skalaren Kontext undef zurück gegeben, wenn was fehlschlägt.
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8
  
  sub execute_cmd { my $cmd = shift; print "Details: $cmd\n"; my @ret = `$cmd`; warn "#### Error: $cmd cannot be executed!" if not @ret; return @ret; }
  
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- +7 replies
- pq
  
  2011-12-14 14:32
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  klar wird das kommando zweimal ausgeführt.
  auch bei backticks kannst du überprüfen, ob was fehlgeschlagen ist, indem du $? überprüfst. also warum zuerst system aufrufen?
  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
  - +6 replies
  - suresh
    
    2011-12-14 17:07
    User since
    2010-10-12
    109 Artikel
    BenutzerIn
    
    Habe es jetzt entsprechend so angepasst:
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8 9 10
    
    sub execute_cmd { my $cmd = shift; my $cmd_return; print "Details: $cmd\n"; $cmd_return = `$cmd`; if ( $? == 0 or die "Error: $?" ) { return $cmd_return; } }
    - +5 replies
    - Linuxer
      
      2011-12-14 17:27
      
      User since
      2006-01-27
      3890 Artikel
      HausmeisterIn
      
      Seltsame Logik hast Du da.
      
      Warum prüfst Du das Sterben des Skriptes auf Erfolg und willst dann auch noch etwas zurück liefern?
      
      Warum nicht in dieser Art?
      
      Code (perl): (dl )
      
      1 2 3 4 5 6
      
      if ( $? == 0 ) { return $cmd_return; } else { die "$cmd failed with error: $?"; }
      
      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
      - Sven_123
        
        2011-12-14 17:36
        
        User since
        2010-06-01
        120 Artikel
        BenutzerIn
        
        Das ist wie ein
        
        Code (perl): (dl )
        
        open my $x, "< file" or die;
        
        Das "die" wird nur ausgeführt, wenn der erste Teil des "or" fehlschlägt - ist also eine verkürzte Form des if () {...} else {...};
        
        Edit:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11
        
        #!/usr/bin/perl use strict; use warnings; my $y = 1; my $x = ($y or die "leer"); print "$x\n"; $y = 0; $x = ($y or die "leer"); print "$x\n";
        
        Last edited: 2011-12-14 17:41:56 +0100 (CET)
        
        +2 replies
        
        Linuxer
        
        2011-12-14 17:44
        
        User since
        2006-01-27
        3890 Artikel
        HausmeisterIn
        
        Danke, was es macht, war mir schon klar.
        
        Finde aber trotzdem, dass es eine seltsame Logik, meinetwegen ein seltsamer Stil, ist, das die() in die Bedingung des if() zu setzen.
        
        Noch kürzer - und IMHO logischer - ginge es so:
        
        Code (perl): (dl )
        
        1 2 3
        
        die "Error: $?" if $? != 0; return $cmd_return;
        
        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!
        
        suresh
        
        2011-12-14 19:26
        
        User since
        2010-10-12
        109 Artikel
        BenutzerIn
        
        Danke für die verschiedenen Lösungswege!
      - suresh
        
        2011-12-14 19:51
        
        User since
        2010-10-12
        109 Artikel
        BenutzerIn
        
        Für mich erschien der Code im ersten Moment einfach kompakt.
        
        Grüße
- +10 replies
- suresh
  
  2011-12-15 12:34
  
  User since
  2010-10-12
  109 Artikel
  BenutzerIn
  
  Noch eine Frage zur Verwendung von backticks:
  Ist es so, dass die STDOUT Ausgabe unterdrückt wird und nur zb STDERR ausgegeben wird von dem ausführenden Programm?
  
  Danke und Grüße
  - +3 replies
  - suresh
    
    2011-12-15 12:52
    User since
    2010-10-12
    109 Artikel
    BenutzerIn
    
    Der Output ist wieder vollständig, wenn ich STDOUT nach STDERR umleite:
    
    Code (perl): (dl )
    
    $cmd_return = `$cmd 1>&2`;
    - +2 replies
    - pq
      
      2011-12-15 12:54
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      2011-12-15T11:52:12 suresh
      Der Output ist wieder vollständig, wenn ich STDOUT nach STDERR umleite:
      
      Code (perl): (dl )
      
      $cmd_return = `$cmd 1>&2`;
      
      meinst du nicht eher umgekehrt? ich dachte, du wolltest die komplette ausgabe in $cmd_return haben.
      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
      - suresh
        
        2011-12-15 23:07
        
        User since
        2010-10-12
        109 Artikel
        BenutzerIn
        
        Dachte ich eigentlich auch und steht wohl auch überall so beschrieben, nur funktioniert es bei mir so wie oben beschrieben.
        
        Mhh, komisch.
  - +6 replies
  - pq
    
    2011-12-15 12:52
    
    User since
    2003-08-04
    12208 Artikel
    Admin1
    
    STDERR wird normalerweise nicht zurückgeliefert, sondern direkt ausgegeben. da musst du es auf STDOUT redirecten, um es mit im rückgabewert zu haben.
    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
    - suresh
      
      2011-12-15 23:10
      
      User since
      2010-10-12
      109 Artikel
      BenutzerIn
      
      Zb führe ich ein externes Perlscript aus, dass sowohl auf STDERR ausgiebt als auch auf STDOUT. Ohne redirection von STDOUT wird tatsächlich nur STDERR ausgeben und der rest unterdrück.
      
      Ich werd das beobachten und neue Erkentnisse hier posten.
      
      Güße
      - +4 replies
      - pq
        
        2011-12-16 09:05
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        du musst den inhalt von $cmd_return natürlich mittels print auch ausgeben. ich kapier langsam echt nicht mehr, was du willst.
        zuerst möchtest du backticks verwenden, um die ausgabe einzufangen, und dann machst du einen redirect von STDOUT auf STDERR, damit STDOUT *nicht* mehr eingefangen wird? nochmal die frage: warum nimmst du nicht einfach system, wenn du die ausgabe eh nicht in einer variable haben willst?
        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
        
        suresh
        
        2011-12-16 12:48
        
        User since
        2010-10-12
        109 Artikel
        BenutzerIn
        
        Quote
        du musst den inhalt von $cmd_return natürlich mittels print auch ausgeben.
        
        Danke!
        
        Es geht hier um ein simples ausführen von externen Programmen innerhalb einer shell. Einige dieser Programme haben informellen Output (sowohl über SDTOUT und SDTERR) - müsste man nicht unbedingt in einer Variable speichern und zurückgeben. Andere wiederum lierfern einen Wert zurück, denn ich dann innerhalb des scriptes weiterverabeiten möchte. Darum brauche ich den Rückgabewert von backticks und nicht den von system.
        
        Grüße
        
        +2 replies
        
        pq
        
        2011-12-16 12:54
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        und daher ist es sinnlos, STDOUT auf STDERR umzuleiten, da backticks eben nur STDOUT einfängt.
        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
        
        suresh
        
        2011-12-16 14:48
        
        User since
        2010-10-12
        109 Artikel
        BenutzerIn
        
        Durch die print Ausgabe ist es jetzt genauso wie du es beschreibst.

View all threads created 2011-12-14 14:08.