#!/bin/perl $flg=1; #perl wait_for_ps.pl Pmy_ps Pfather_of_my_ps $ARGV[0] =~ s/P//; $ARGV[1] =~ s/P//; $cmd="ps -aef | grep \"" . $ARGV[0] . " *" . $ARGV[1] . "\""; while($flg == 1) { $c=`$cmd`; if(length($c) < 1) { $flg=0; } sleep(5); }#while system("~/bin/bip.unx"); exit(0);