Seltsames Verhalten bei Variablenersetzung (Allgemeines zu Perl)

[thread]15120[/thread]

Seltsames Verhalten bei Variablenersetzung

Leser: 18

Articles: hide open all | hide show old branches

+7 replies
Gast BenediktS

2010-06-09 13:09
Hallo,

ich habe ein Verständnisproblem oder sehe den Wald vor lauter Bäumen nicht mehr.

In einem Skript frage ich per ps nach einem bestimmten Prozess und lasse mir die PID zurückgeben. Hierzu wird ein ps-Kommando zusammen gebaut. Dabei wir unterschieden ob der Prozessname mitgeben wurde und entsprechend behandelt:
Code: (dl )

1 2 3 4 5 6 7 8

elsif ($args{command} eq "Get-Listener-Pid") { if ($args{listenername} ne "") { $command= Command->new(command => "ps -ef | grep " . $args{listenername} . " | grep -v grep | awk \'{print \$2}\'", remotecommand => "false"); } else { $command= Command->new(command => "ps -ef | grep LISTENER | grep -v grep | awk \'{print \$2}\'", remotecommand => "false"); } }
Das funktioniert auch soweit, die Ausgabe des Kommandos unmittelbar vor der Ausführung sieht in beiden Varianten so aus:

Ohne Übergabe Prozessname:
Code: (dl )

Dbg Command [ps -ef | grep LISTENER | grep -v grep | awk '{print $2}']
Ausgeführt:
Code: (dl )

1 2

Dbg ReturnMessage [7606 ]
Mit Übergabe Prozessname:
Code: (dl )

Dbg Command [ps -ef | grep LISTENER | grep -v grep | awk '{print $2}']
Ausgeführt:
Code: (dl )

1 2 3

Dbg ReturnMessage [5831 7606 ]
Bei der zweiten Variante ist zu sehen, dass zwei Prozess-IDs zurückgeben werden, es läuft aber nur genau ein Prozess. Hat jemand einen Idee?

Diese Verhalten tritt unter den folgenden Perlversionen auf:

AIX 5.3.9.4 TL09
Code: (dl )

1 2

perl -v This is perl, v5.8.2 built for aix-thread-multi
Linux 2.6.16.60-0.54.5-smp #1 SMP Fri Sep 4 01:28:03 UTC 2009 x86_64 x86_64 x86_64 GNU/Linux
Code: (dl )

1 2

perl -v This is perl, v5.8.8 built for x86_64-linux-thread-multi
Vielen Dank
Benedikt
Last edited: 2010-06-09 13:10:43 +0200 (CEST)
- +6 replies
- Taulmarill
  
  2010-06-09 13:16
  
  User since
  2004-02-19
  1750 Artikel
  BenutzerIn
  
  Ich würde einfach mal zum debuggen das awk am Ende raus nehmen, damit die komplette Zeile ausgegeben wird. Dann wird wahrscheinlich auch klarer, wo es hakt.
  $_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B
  - +5 replies
  - Gast BenediktS
    
    2010-06-09 13:32
    Das ist es leider nicht, den das Kommando sieht auf beide Varianten gleich aus. Hier die Ausgabe auf der Shell:
    
    Code: (dl )
    
    1 2
    
    ps -ef | grep LISTENER | grep -v grep orakxa 7606 1 0 Mar29 ? 00:00:09 /oracle/KXA/102_64/bin/tnslsnr LISTENER -inherit
    
    Code: (dl )
    
    1 2
    
    ps -ef | grep LISTENER | grep -v grep | awk '{print $2}' 7606
    
    Last edited: 2010-06-09 13:36:04 +0200 (CEST)
    - +4 replies
    - Taulmarill
      
      2010-06-09 13:59
      
      User since
      2004-02-19
      1750 Artikel
      BenutzerIn
      
      Naja, aber irgendwoher muss die PID 5831 doch kommen. Was ist denn das für ein Prozess?
      $_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B
      - +3 replies
      - Gast BenediktS
        
        2010-06-09 14:43
        
        Die zweite Zahl ist vermutlich eine PID. Da sich bei jedem Aufruf die Nummer ändert liegt das nahe. Allerdings habe ich es noch nicht hingekriegt das Kommando zur Laufzeit abzugreifen.
        Last edited: 2010-06-09 14:45:37 +0200 (CEST)
        
        +2 replies
        
        Taulmarill
        
        2010-06-09 15:19
        
        User since
        2004-02-19
        1750 Artikel
        BenutzerIn
        
        Deshalb ja mein Hinweis, das letzte awk wegzulassen, um die ganze Zeile und nicht nur die PID ausgegeben zu bekommen.
        $_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B
        
        Gast BenediktS
        
        2010-06-09 15:52
        
        Vielen Dank, nun habe ich es verstanden und gelöst. Nachdem ich's verstanden habe und das awk auch aus dem Skript genommen habe, habe ich gesehen das die zweite PID vom Skript stammt.
        Last edited: 2010-06-09 15:57:03 +0200 (CEST)

View all threads created 2010-06-09 13:09.